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1. INTRODUCTION 


The work of the Turbine Components Branch of the AF Aero Propulsion 
Laboratory includes the development and purchase of numerous digital 
computer programs coded in FORTRAN. Many of these programs are subse- 
quently distributed to other organizations, both within and outside the 
Government. 

Maintenance of a large inventory of programs requires that they be 
documented in a consistent, easy-to-understand tormat. This also simpli- 
fies the implementation task for those people to whom we distribute 
programs. Accordingly, we sought a means, preferably another computer 
program, which would accept a working FORTRAN program as input and 
deliver a reformatted equivalent as output. As a minimum, we wanted the 
statement labels resequenced in increasing order (e.g.,1, 2, 3, ...) and 
the program to handle any statement accepted by the CDC FORTRAN Extended 
compiler. 

As our first attempt in this direction, we acquired TIDY and used it 
for about two years. TIDY, however, was not completely satisfactory. 
Although it resequenced the statement labels, it also deleted almost all 
blanks from the reformatted statements which made the resultant listing 
somewhat difficult to follow. More seriously, it did not recognize some 
of the statement forms accepted by the CDC FORTRAN Extended compiler. 


For instance, the input record 
READ *, A $ B = SQRT(A) $ IF(A.GT.3.0) GO TO 383 


would not be properly handled because TIDY does not recognize the list- 
directed read command nor does it recognize the dollar sign as a state- 
ment separator. Consequently, it does not process the logical IF at all. 
To be properly processed by TIDY, the sequence above would have to be 


written 


READ 100, A 
100 FORMAT (F10.0) 
B = SQRT(A) 
IF (A.GT.3.0) GO TO 383 


BD RR ca 


| 
| 
| 
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i.e.,we would have to program in a subset of FORTRAN Extended if we 
wished to use TIDY. 

In 1977 we acquired REOR, which forms the basis for the program 
described in this report. REOR was coded in FORTRAN Extended and speci- 
fically recognized the dollar sign statement separators (it outputs such 
statements on separate lines) and offered a somewhat more readable out- 
put format. Though it also did not recognize certain FORTRAN Extended 
dialect statements, REOR proved to be very easy to modify to achieve the 
capability we wanted. The remainder of this report briefly describes | 
the features of REOR and describes in more detail the added features of 
the augmented program, known as CLEAN. Appendix A contains a complete 
listing of the program and Appendix B contains descriptions of sub- 


routines which were added or significantly changed. 


2. THE PROGRAM 
2.1 Original Features 
As acquired, REOR provided the following major capabilities: 

a. Labels on executable statements were renumbered in 
sequence, e.g., 1000, 1010, 1020, etc. 

b. FORMAT statements were gathered at the end of the pro- 
gram module and renumbered 10, 20, 30, etc. Umnreferenced FORMAT state- 
ments were deleted. 

c. Variables in DIMENSION and type statements were gathered 
into single statements of the appropriate type and output in alphanumeric 
order. 

d. DO loops were indented two spaces each. 

e. Blank spaces were added for readability, e.g., two on 
either side of an equals sign, one before each left parenthesis, one 
after each right parenthesis, one after each comma, etc. 


2.2 Added Features 
We made a number of additions and modifications to REOR in 


order to achieve the capabilities and output format we wanted: 

a. It was converted to overlay form to fit within the 
memory limits of the local implementation of CDC's INTERCOM interactive 
system. The program can now be used interactively or in batch mode. 

b. The program output is to a file called TFILE, which is 
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rewound at the end of the job. The contents of TFILE may be punched, - 
listed, compiled, or whatever. 


c. It recognizes and properly processes some additional 
FORTRAN statements: 


(1) OVERLAY, as in OVERLAY (FILE, m, n) 
(2) IMPLICIT, as in IMPLICIT REAL (I - K) 
(3) COMMON//, as in COMMON// A, B, C 
(4) List - directed input - output, as in 
READ *, list 
READ (5,*) list 
PRINT *, list 
WRITE (6,*) iist 


d. Unreferenced labels on executable statements are 
deleted, as explained in Appendix B. The remainder are renumbered 
1, 2, 3, ... FORMAT statements are renumbered 100, 101, 102, ay 
unless there are more than 99 executable labels. In that case, the 
program tries 200, then 300, etc., until it finds a number larger than the 
last executable label. 

e. The program recognizes and properly handles Hollerith 
literals in any statement in which they are legal, viz: 


J = 6HSTRING 
DATA JR /6RSTRING/ 
CALL CONNEC (6LOUTPUT) 
IF (J. EQ. "STRING")... 
100 FORMAT (6., *STR*, ‘ING') 


In the last case, 'ING' is changed to “ING". 


f. Nonstandard returns from subroutines are detected and the 
new labels inserted, as in CALL TAXI (A, J, "DOWNTOWN''), RETURNS (40,58). 
g.- The output format has been slightly modified to suit 
our preference. Blanks are not inserted before and after parentheses 
in replacement statements. One blank follows each equals sign and at 


least one blank precedes. If the equals sign lies to the left of column 
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| 
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18, it is moved to column 18 and the vacated space is filled with blanks. 
(In DO loops, the entire statement is moved right after the equals sign 

is positioned.) The original REOR put blanks before and after each arith- 
metic operator (* / + -), which left two blanks in the middle of the 
exponentiation operator, so that ** became * *, The revised program 

puts blanks before the first and after the second asterisk, but not 
between. 

The revised program has been renamed CLEAN. The listing in 
Appendix A gives a good example of its output format. 

2.3 Limitations 

Program CLEAN will accept and process any legal FORTRAN Extended 
statement except references to extended core storage (ECS). This 
omission is unimportant since our computer does not have ECS. 

Conversion to other compilers would entail the same difficulties as 
for the original REOR. The program assumes ten characters per word 
storage and makes frequent use of the ENCODE and DECODE instructions, 
which are not available on all compilers. 

2.4 Execution Speed 

CLEAN will process approximately 100 source cards per second 


of CDC 6600 central processor time. 
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APPENDIX A 


Listing of CLEAN 


The complete source code of CLEAN is presented herein. The listings 


show an occasional continuation line marked with a dollar sign. These 
were created by the listing program to maintain the right-hand margin 


and do not appear in the actual code. 


IIQIAIAIOMMAA 


i 


MN & 


te 


UV BY CCLE ASS O97) 


Ei fief A ™LERD CIDFU? >» CERO TRE, Tare z, THPTH= 
ETL, 
1h Peterer) 


FLIES Fe 


PPiicGant Zoo THe SUUTILE TY ORO RINGS THE 


STAVE hehe RUSE RS 


atta AUJUSTFEG THO STATEROOM SEAC TRE atu of QUEhCL. 


€ Craton 4eELLS THe Sy Tehli 
Sid, LENTKT, 

TRA SORE, a VPu. Teess 
ENG) aKa 

G2, SGu)s LCEEP G2) BORE 
(29°45), 

LHUPIS, WAHL (4), HCH US 5 
NKF ot, PUUTS, 

NEUSH, MoOLUPRLs KSTATN, KUM 


KVL Se, Sa! Ibe 
(25° £00) 
CONELW fEATAS Ce Eecdy By 2 


C17) 5 JEUNT 
(11), IGUUN) (ey “dy LUTN, 
ffiLOH* aS 5 


PNEFO! Ing MNS Tes whAt Thy KM: 


FETUIN, 


Stars. xX 
CEF4¥OH SYSNLISIFZ MS, FEF 14 
TST: &£i Gy EVD, ty ICATA 
bEIUAN, Sah, 

Si Ine, xX 


ceNUL VALE hie (TLAHbI Sy» LUBTA( 
PATA ICOUFT, 2UETFR 7 6 * 
CATA Cy ERE sy Hs FSULANK, £ 
1H ’ J J/ 
OATA ENTEGER 7 add, tH1, 
1H7, 1®, 

4439 7 
MET? TFUNCT 7 LH» LHe,y I 
1H=, Alay, 

LHe, THO 7 
LATA LUatey LUCUT, LUSIATE 


PANE ORM, YESTA TL» 

NOSES, NMAXy RUMPEAX, PETUE 
1% Uy chu, Sc, 

GIy Uy 100, Shy SHEL UEN, 
nate FUGikt ¢ Ahh, THE, 


re 


THATS Fx, CGR eS AS He RES 


thy SUA. X 7 ty Uy 3y 


iy Tero, LHHUM C2, 

s (KE Coe. CiGe) y KROUT (2; 
cog LCFOUT CLEBO)s ESTATE 
NEXT» PFGhMA,y NEOUT, 


EET (7)y NUL, NUMK, 


SLEWKs FEOF, Dhi c Gur 


LuGU 9 EUSTATES, MFOLT, 


Xy Ale MEX, PaGGk ae (7)y 


oA, 3) 
(4617) PELIGRES, ROOF, 


1)) | 
Oy 4647 * t ¢ | 


~ GF 7 LHe, SHEN, 1Hky 


1h2y 1Hoy 144, LH, KE, 


Hy 1H), 1H*, AHty, 1hkey 


» MFCUT, MLOHARS 


1H*, 1HX / 
1HGy 1LHGy titky LitAy 1K 


ae ee ee 


PRECEDING PAGE BLANK-NOT FILMED 


py 


C 
C 
C 
¢ 
C 
Cc 
C 
C 
Cc 


andgaNngagg 


Q0aon 


HOUSEKEEPING 
CALL RESETS 
00 THE WEAD CYCLE. kAC fHe STATEMENTS FRaY THE 
INPUT FILE 
TAPE2, PRUCESS, AND STOFE ON THE WORKING FILE 
TAFES, 
CALL OVEFLAY (SHCLEFAN, 1, &) 
DO THE hFIVTE CYCL Es KERD THE STFU EMSNTS FauM “he 
WORKING 
rT Lt,» COMFLeTE THE FFOCESSING, “wl WKelTe TY 
TAFEM. 
LALL GVFFLAY (SHOLES Ny, 25 0) 


REPcCAT TF tu ECF ENCOUMTEN LD. 


JF CPEOF <c<EQ. G) GO TO 4 
REWIND & 

£4Gr 

ENT 


@ 


3 


ALIGN 
ICHAKS, 


Suar Jui Ine 
CCMMON J/ALL/ 
50), IFOINT, 
TPO0G,y ISKLH, ITYSE, 
106) 5 KSNU* 
(2, 4OO), 
(COLO), 
LWORLSs, NAME 
NKFO My, RUUTS, 
WRUSH, NoivUFC » 
WVALUF, Sit Ire 
(2, 106) 
LORNON /5aATAs 
(19%), IFUNCT 
(11), ICOUN) 
MICHAES, 
RHF OC iM, 


LOAK (80), 


(4), NCAPUDS, 


NSTATN, 


VWF FeO WHE NS & we 


Cy IND, Hy 


(25 4), LUAhy 


MOTE TE 9 NCAD 


MWENS RY 


CHEULK FOR The EQUAL 
FASSTELE. 
ALWevVS FU 

FLeECET ING. 


SIGK. 


if GO) NT = 
Go £ 2 =i, 
VF (LSTATE (IT) 
CUT INOUE 

IF (TFCLini 

POINT 409, 

nilU cw 

TRU MT = 

IF (IFOTN*T 


JFUINI 
etDe 


elie LOH? RS) 
(LSIETE CI), 


TSE NL (i PUNY 
oGF eo TCHARS) 


FOLL CHIANG 


CELE IRSE: 1 


t 2) 


(TELANK, 


PRECECTIAG 


MAnY = 2 
JF €EFOINT ett 
5 gCGG4 = JECT © 


JOOLLAF, 
I¢ss9, 
LChArS, 
NEXT, tFORMNy 


NUMEFE 


I3LANKy 


NM 


EF ELANK FULLCWLRG AWD 


TECANLATFUNCT (CO), 
ITFUNCT(2)) 


GC TO -3 
T=1, ICHE © S) 


ifeds 
slTUON 


it O1NT ¢ 


IFPRGR, INNUM (2, 


KFORM (100), KFOUT (3, 


LFGUT (1000), LSTATE 


NF OUT, 


(7) NUMLWy NUMK, 


IEOF, INTEGER 


LUOUT, LUSiATcy MFOLT, 


Ky NUN MAX, PRUSEAM (7), 


FUT IT lie COL 18 iF 


AT LEASE CNE 


JP, CCHARS, LSIATE(1)) 


COMPAS = COMMAS + 1 


4 


Fy JUHKEF Sy, wSIATE(1)) 


ty LUHPRSy LSTRTL(4), 


SAXO (1,11 + 


Curb4is) 
CALL INSETT CIClenKy LFOIN Ts, LOHAl oy LofaTe(i)d, 


MENY) 
LOOK FOw MULIS FLEE SL PLACE ZFS 
re IFCTNT # MANY ¢ 2 
COMMAS wt 
GO 19 2 
FORMAT ( SOCCULE thuT Fanc &® €QU&e SITow ie’ THIS, 
> REPLACE YE? 


PNT STATEMERTO* 4 (1K, 12041) ) 


t NO 


| 


LOGT CML FUNSTICH CH CK (LOOKG, NN, ISTAU, TSTOF, 
. $ LIST, a C1NT) 


THIS FUnNuTiuh SCARS THE STF ING "LET! FRO ISTART TC 
ISTOr FOw THE SFECTFIG STKIBG "LOOK4", sLAnKS IN 
2 *L IST 

Aki LGNOSFO, 


aaANIaoanaNna 


ul: = NS1OUA LisT (1), WICKUF (19) 
CAT" T2LANK / 1H / 
C QF CTSTOR |= USTe he eb Te tN) 
IF ( ehOTe CISTCEMSSTALT ehTe th)9 GU TD 1 
GHEOK = eFALSS. 
AF ULNT = Isisft 
FEVUIN 
C EWN IF 
1 CONT TNUE 
LECTIN (19, 1c 
NG (IPOINT = TSI 
195396 = 35 
193995 = ISi - NN + 4 
OO if JFOIKT = 799996, 199995 


» LOCKS) LOOKUP 

1,TSTOP = KN # 1) 
KT 
i 


oO 


J 
A 
T 


' 
f 
‘a 


FIND A POSSIBLE STFAFT POTNT. 


Ana 


IF (LISTCLFUINT) e&Q5e LONKLUF(1)) 
: LF ¢ eKOT. (LISTCIFPOINT) te Qe. LOOKUP I(1))) GO TC § 
J If CINYT 


ly DO (I = 2yNN) 
199999 = 2 
19996S = WN 
00 € J = J+99399, 199S9%y 
J xed 
IF (J .GT. ISTOP) GO TO 12 
C WHILE (LAIST(J) eENe JBLANK .A"L. J el&ée ISVOP) 
2 IF ( ehOT. (LuST (J) etCe IALANK eoANDe J el Eo 
% 1S10P)) GO 10 2 
J =Jetl 
Lp ERAN WHILE 
GO TO 2 
3 CONTINUE 
| 4 CONTINUE 
C IF (LIST(J) eNhEe LOOKUP(I)) 
LF ( .NOT. (LIST( J) eNee LOOKUP(I))) GU TO 5 
J x «74 
C ESCBOE NO 
60 TO 7 
C FNO IF 
5 CONTINUE 


4 11 


oO 


ENC 00 
6 CONTINUE 
? CONTINUE 


aaano 


IF (J obTe. 0) 
TF ( eNOTe (J eGle 09) CO TO 8B 
CHECK = slKUE. 
RETURN 
ENO IF 
° CONTINUE 
END IF 
9 CONTINUE 
| 
| 
| 
| 


IF J IS POSITIVE HEFF, THE STAING WAS FCUND. | 
| 


FLSt, LOCK FOF TRE NEXT OLULFE NCE IN LIST OF THE 
$ FAKST 
CHARACTER OF LUOKUF, 


AnNoNnNnNaANnO Oo fo) 


END D9 
ic CONTINUE 
11 Cunt INue 


Aan 


12 CONi TNUE 
CHECK 
IFOINT 
RETUGN 


eFALSE, 
TSA RT 


yon 


1F tHE VUTER LCOF IS COMPLETES, NO MATCH WAS FOUNT. 


190 FORMAT ( 1MGA1 ) 


FNN 


——— 


+r Pa 
ty yg 
‘ ieee -y 


| a 4 et Ne ee io Feet <aRY x ve oe 
f ne Fy Saye mY , . 
weleer gia SL Fea ; 


a. 


AAANANAQND 


AERA N ae O 


Wee N78 


DUB\NOUTINGE INSFET (NEW, ISTAFT, ISTOP, LISI, N) 


THIS FOUTIKE INSERTS INTG THE PATA SikING "LIST? 
THe N 

CHARACTERS FASSEY THOU REWe. START AT POSITION 
ISTAFT™. 

ISTLF Ts INLFL ASEM BY Ne 


CChRUN = /4LLZ JOHAFS, IOOLLAR, IEF ROR, INKNUM (2, 
50), IFOINT, 

Tr"OG,y TSRUM, TTYPE, IGGS9, KFLE (101), KFOUT (2, 
190), Kstu" 

(2p 49), LEKID Cold, LORAES, LECUT (1090), LSTATe 
(200%), 

LHOVE Sy RARE (GY, WORMS, NEXT, KEOPR Ny NE OUT, 
MKF OGM, NOLTS, 

NPUSH, "SPU, WETATNH, NUMBER (7), NUT? Ny NUK, 
NVALUE, Ste Ine 

(25 1299) 
COMMUN Aman oA Cy Lindy Hy Tcl’ WNKy atUF, THTEGH: 
(19) 5 TEUNCT 

(1205 TOUCUNT (25 4g “UIB, LUOUi, LUSTATL, 4FOLI, 
MLUAS INS, 

mF ou: My KNSVATEy “NCard, AVEX, NUM EX PrUsKAS (7), 
KET U cis 

Siwy, ¥X 
UINS wSTOGt (JTLT (1) 5 BREW (1) 5 NEW ERR (106) 
Ne = W 
JF CIN ehee TM) FE TUK 
TF CNUr It elke &) GO TN 2 

DO: 4. J = 1, 'UMIN 

IF CTS The dV etre LENUY(195)) INU (1,5) = Teil 
(1.J) + KS 

CUuMPINu, 
GEC. Cehly DFM NEW C17) (mrWremek (idy THly By) 

nO @ 7 = dy bir 

CSL SHTETP GNF WTSHPCL), TSTART € T = ty ISTO, 
Las: (1)) 

Curry TRUE 
Tana" $s s Fe HALLS + file 
AF 6(TeOL ohh ct 7s 0) TUL Ar = alO.uaAr + 

E TUN 


ERE? Y CONST RT h 


FICOME C2 %y ACTy KEW Ciscfaey MEW CE) 

CFCUXE (5S, LCL, BFNTERP CIRSY) (NeWT ch (Cidy edly 
5) 

ry’ = 5 


| 
| 
| 


o 


If ( .GFe 4) GO 7u 
LF (NENTEMI- C2) ob e 


Ni = Wheel 
oe 6 1 = @, Nh 
NEWTO AMP OCT) = te wtec 
QONTINUE 

GO 79 5 


LNTRY LNSERTS 


NN = W 
TF (WN olte Uv) PETU 
GO T0 2 
FOR SAT ( 10041 ) 
FOFMAT ( TS ) 
ENS 

14 


2 
~ 


13L_abhK) “F TN 3 


mPCyT # 4) 


ch 


Ne 


AnaIoanan 


oy 


aan 


Fur) rae! TSChEN CLUOKS, TOTLH, LoTUF, LIST) 


THIS FURCTION Cans THO Bnd ¥ GSt?! FOR THT 
CHarAhCict "Lonkyae 

PUG Ce TUS CAF LOGATICN ITF FuUNO, 

Sfaw Feo’ THE CIGOnT, 


odhe wSUOR. Rrct «39 

T = Jf ie 

iF ¢€F skis FSTERT) Go TA g 

IF Gc IST¢(1) FC. LOSKG) GE TN 2 
y ei = 7 

GO Vo 1 


FRI TY TSc SNL 
SCAM Fuch TRE LEFT, 
z = IS TA 


TF (L «G67. ISTCF) GO To 3 
LF (cisici) eFC. (lOKG) GO TH. = 
1 


si + 1 
GO 79 2 
Iseaue = I 
%& wUON 
aris) 


wien 


— 


} 
} a 
} 


oe et cin rteeres ee 


FUNCTION MATCK (ISTART, ISTOP, LIST) 


THIS FUNCTION FINDS THE CLOSING )e ISTART IS THE 
KNOWN 
POSITION OF THE FIRST (. 


foReokele ls! 
bd 


COMMON /DATA/ Cy ENDy Hy ISLANKy IEOF, INTCGER 


$ (10), IPUNCT 
1 (14), ICOUNT (2, 4) y LUINy LUOUT, LUSTATE, MFOLT, 
$ MLCHARS, 
2 KNFORM, MNSTATE, NCAROy NMOX_y NULMAX, PROGRAM (7), 
$ RETURN, 
3 STAR, X 
DIMENSION LIST (1) 
14 = IZ = ISTART + 1 
C 
Cc I3 IS THE FCSITIGN UF iHE NFXT (. 
C ] 
14 13 = ISCK&NL (I FUNCT (7%), I?, ISTOP, LIST (41) ) ] 
C 
C I4 JS THE FUSITION OF THF NeXt deo 
C 
I4 = MRICH = JSULANL CIFUKCT (4), I4, ISTOF, 
® LIST(1)) 
c 
C LAST ) Io FOUNC WHEN WEYT ( TS 10 THe XIGHT OF 
C $ WHEN IS TOF 
C HAS BEEN EXCEFDED. 
Cc 
TF (12 eGEe TH eGhe TH eG e aSiNF) KETUKKN 
C 
Cc ACPOSS FY FEIN 
C 
13 oT s+, fl 
14 = 34 +1 
} 60 TO 2 
END 


tea eine nine ES ne 


1 

Cc 

C 

Cc 

H Cc 
2 
3 


AQAOANIANANAAAON 
sr 


FUNCTION NONI (LOOK4, ISTART, ISTUP, LIST) 


THIS FUNCTION FINDS JHE POSATION OF THE LASI 
GWONK)D Cr FIRSI 

(WONL) GHAFACIER IN THE STRING ‘LIST* BETWEEN 
ISTAR] Atl ISToer 

WHICH NOES tet MATCH ThE CHARACTER *LUOK4*, 


SCAN FFC* THE PISHT (LAST) « 


DImr NSiCr LIS1 (4) 

1 = IS1CF 

aF (I of Te. IFSTKKI) GO TO ® 

IF (LISTC(I) ehF&e LOUKS)D GU TO 2 
I =IT-i1 

GO ¥9 1 


ENTE Y NOP, 
SUAM FROM TEE LEFI CFINST) «© 
i = ISTAST 


TF (I bl. ISTCF) Gu TQ 3 
TF CLISTCT) ebbe LOCKS) EN IN Z 


T =T ¢#¢1 
GC TN 2 
NUNS = I 
FL UTN 
END 
17 
<i LEM. 


aAnaAa 


SUBTOUTINE FEStTS 
THIS FCUTIbAe FFSETS THE FUaNTERS bue COUNTETS. 
CCra0N SELLS ICKAFS, ICOLLAR, JFi rCr, INHUY (2,5 
€ 5U), IFOINT, 
1 TEROG, JobUt, atY¥hcy INSSG, KFUr® (19)), KFUUT (sy 
£ 109), KSAUM 
2 (25 SOG, LEAKD (@%), LCRAFS, LECUL (10 ud), LoThie 
$ (2050), 
3 LWOKDS, NAME (Udy NCAPDS, NEXT, NFUFHiy NFOUl, 
ES NKFEORM, *CLUIS, 
4 NPUSH, “OoNUMC, USTATN, NUnQEF (7) 5 NUtTing NUK, 
$ NVALUE, STRING 
5 (2, 190) 
COMMON STRTAS Fy ChDy Hy T3L*NKy ALLE, ITNT UGE 
¢ (16), TRUNCT 
i (14), ISGUNT (25 4), LUN, LUGUT, LUSTATE, “FOLT, 
£ MLUHAKS 
2 MNFORM, SNSVETE, PCART, Bro Xy NUMMAX, 8 R2UGPAL (7), 
F FETUEN, 
3 Cc Ak, ¥ 
INIT GENK SThIbG 
0.4.1 = 1, 7 
NUMBER(T) = C 
1 CONTINUE 
00 2 J = J, 1C? 
GO 2 ¢ = 1, 2 
SttIMo(iy J) = TALANK 
2 CONTINUE 
bu 37. = 1, & 
MAME(T) = J32L4NK 
3 CONTINUE 
09 4 fT = 1, 1070 
LFOUT (I) = JeLANK 
LSTATE(T) = TFLANK 
4 CONTINUF 
po 5 J = ly 106 
KFORM (J) =u 
On 5 I = 4y 3 
KFOUT (I, J) = C 
5 CONTINUE 
00 671 =i, 4& 
ICOUNT(1, 1) = 0 
6 CONTINUF 
ICHA&S = 0 
IERROR = 0 
IPROG = 0 
1°3999 = 0 
18 
Tee RR 


LOH! Ss = 0 
NCLEROS =n z 
NEX™ = 3 
NFOvsN = fn 
NFOUT = A 
NKF O24 = 6 
MUUTS af 
NoNU “C0 = 0 
( eee 
NSIATN = f 
NUK = 
Cc 
EnWTr.¥ %2STi x 
00 7 J = 1, NUM AX 
090 7 1 = Ay 2 
INKRUM(1, J) = 29 
7 CONTIAUE 
ISnUeM = 0 
ITYfe = 1 
NVALUF = 0 
NUMI W = 0 
FETUFM™ 
ERD 


aoN aan loleohek eke heh @) 


aan 


aan 


SUBKOUTINE SCANPREF (Ny NGy NLy NE) 


SCANS SINAFY TFEE "PE F* FOR VARIABLE N. 
IF N IS IN KFF, ITS SUbSCRIFT ITS RETURNED IN AC. 
OTHERWISE, THe wiXT LEFT POINIcR IS RETURNED IN 
KL 
OF THE NEXT RIGHT POINTEF IS RETURNED IN NR 
COMMON /SNLISI/ Noy REF (400, 3) 
INTEGEr REF 
i = 1 
IF (N = PEFCT, 1)) 25 Sy 
CHECK LEFT FCINTFR 


IF CREF(I, 2) ec Qe C) GO TC 5 


I = PERIL, 2) 
GO TN 1 

iw FOUND 
NQ = 
NL = Nr s ¢ 
ROTURN 


IF (REF(I, 3) ¢€Q. 0) GD TC 6 


CHECK PIGHT FUTRTER 


J = RFF(L, 2) 
GO TN 1 
NL = 


END OF BRatCkK, SN IS NOT TN YP EFe 


NF = A 

66 TO 7 

NE = JT 

NL = nN 
= Q 


AananandrIn 


oy 


MANNANANAAN 


SUB) QUT ANE Ski Fim (NEw, ISTOFi, ISTOP, LIST) 


THIS £OUTThe SHIFTS ALL OFA IN THE LIST FROM 
ISTARKT THFU 

ISTur ChE SFACt TO THE RIGH™. THe CREATED SPALE 
tS PIELER 

aY NER, 


Lame SLOK LIST ¢2) 

] = FS1GE 

LIsi¢I ¢ 1) = LIST (LL) 

I i eae 

iF CF oGh&. FST? Go TA: 4 
sIstciIste 

PSiGe 

“ETUTA 


Frc Y SHIFT 


THIS FUUTIFE SHTFIs ALL PatéA TW THE £1S1 From 
TotTART THEY 

INSTUP GNE SELLE FO THE LEFT. THe CRLAfeo SPALE 
TS FILLES 

3¥ hee 

{OELCPece “BE VECUE OF TSTCE TS ANDUUST Ed. 


JS JF rin OS 1 Sa 
IF CESTSE1 6G. TSIuUP) GU TO 3 
GQ < = asthe, LST Ct 


taSt (i) = LIStel + 4) 
CONTINUE 
ZEST CESTOE + 7) h="W 
tcolUlN 
Ene 


agaaNnNaAN 


agagnagn 


aaa 


C 
C 
Cc 


CVri LAY (CCE BN 15!) 


FeOGeAe 


thos 
THIS SUSROUL INE 2EAUS FRE TREUT FIL: AND 
GENFRAYHAS THE WOAPK 
FIbLe Anu STeINGS FOR LATE FROCESSINGe 


CGEMGH ALLA ICtiAKcd, UNGLLAx, TF vkOn, INKUM (2, 
51) > Tul Vy 

Ie?’GG, TSHUM, ITYFEs T9999, KFOrY (1iM)), KFUUT (Cf, 
160), KSNU™ 

(2, GOO), LChRe Cot), LCHETS, CFOUT Citisl), LSI4Te 
(CUNO), 

LWOEL Sy WANE (4) y NCAR Sy HOXT, KECI ty NP OUT, 
NKFOR “My NOUTS, 

NPUSH, HENURC, NOSTRIN, BUNSE! (7), WU4tTitg NUK, 
RVALUE, Sit TAC 

(2, 190) 
CORMON JOKTRS Cy “NUy Hy Jolfinky LcuF, at €Gri. 
(10), JRUNCT 

(11), IUUUNT (2,5 4)5 LUIN, LUOUT, LUST£it, FOLT, 
MLOHR MS, 

MNFOS™, PNST> TE yg NCAR OQ, NMOX, NIIMHAX, FROSKRAN (7), 
RETURN, 

STAR, x 
COMMON /SwlISI/ “Sy, HEF (465905 35) 

TOUNCI ~ G2 oS choo &£G. - 7167S 3e 2 

J oy ( ) eR ae =) FS ey 

ENTE GEE Cy EMC, FRUGHE AP, FEF, STAs Stn NG, 
TRANSE 
LOGICAL CHECK, “LIST, KN 
CALL KSeT (5) 
IGUUNT(1, 1) = 1 
IF (NCFROE .NEe (1) GO TO 3 
iCOUNT(1, 1) = 0 
Fehu (LUIN, iu?) LCAKE 
ICOUNT(4, 1) = ICGUNE (1, 1) + 4 


IF (EOF (LUIM)) 


NCARD 


CHEUK FUR & COMMENT CAFC. 


IF (IcOF 


CHEUK FOF ALL ELahK CAC. 


ote 
IF (LCARD (1) 


825 2 
a | 


IF SQ, OUTPUT. 


1) GO TO &3 


oF 9. C eOKe LOKXE(1) oF O60 


IF SO, oulPUT C CARD. 


SIAR) GO TO 4 


—- me secatiiecestt a ee ne ae 


ht 


aan aan aaa aan lor wk @ i or) 


aan 


C 
C 
C 


10 


re eA 


DF CwOME CT GLALK yt y72yLCAIC(1)) el &e 72) GU 10 6 
= 1 


LOHAKS 

GO 7 5 

ICHAWS = NOL WCTELOANK, 2, 725 LO*KL(1)) 
LTYPE = 0 

LCA29(1) = 9% 

Cabo UUIFUD (LEO (17) 

Resa) = 0 

GO TO 1 

N = NOILGCISCcC ANK, Ly Sy LEP -UC1)) 


CHel K FOR STATEMENT NUMEES aN THE FICS FIVE 
LULUMS, 


It Cx ebie 5) GS ama) 7 

Y*S. WOW Leif RMaNG Its VALUE, 
TSVOr = 5 
RVAL UE = NLMES (hy, ISTGR, LC4E0(1)) 
IF (WVALUC «G7. 9) GL TI0 7 
reant 1L1, LCerE 
GO TN & 

TRANSFIw TRIS FETOREU [0 LoTATE, 


LTHharS = TFANSF(7, 72) 
aF (Tit. AeS .t¥. 0) GO TM 41 


fe AU THE NI XT INPUT PECORS 
RELO (LUT, 19) LOAF 
TCOIJNT (1, 1) = ITOUNT(4, 1) + 1 
JF CFOF(LUIN)D) At, 9 
NCA 9 = NCARU + 1 
23 THIS A CONTINUATI JN? 
IF (LCARD (6) «£00 INTEGER (1) OR. LCARD(6) otGe 
TSLANK .Ohe 
LOAPN (1) eF00 © eOne LCAFR(1)2EVe STAT) GO TO 11 


YESe of T UF FOF [RANSFEF 10 LSTATEs 


N = NCWLCIiGLANKy ty Sy LCARD(1)) 
LF (N G7. 5) GO TC 7 

GO TO ii 

It uF = 1 


THE FNT ARE ARr BY HAS BEFN CONSTRUCTEJ. NUW 
IDENTIFY THE 


Naa aan aan aan 


ok oF | 


11 


12 


13 


14 


TYPE AND IKSLFT THE PXCFEF SPALING. 


LF (CLPinO0G eNEs UU) GO TO 14 
CALL BLAKKS 


STALEMFNTS WIVH ITYPE = 1y 29 3, 4y IR 14s 
IFUINT = 4 
J = IGENT (4) 
1F (J eNEe 45) GO 19 12 
UNIGCENTIFIAGLE’ THIS IS 4N EGROR, 
PRINT 102 
1PFOG = 106 
GO TO 14 


TOENTIFTED,. 


ETYRE = J 
IF (iTYFF .€0,. 14) GU TP 66 
TPS = J 


IF (J eNE~ 4) GO TO 13 
HFRr FORK 3SLOCCK CATA, 
GALL IThSEET CISLANK, IFOsNT | by COHARS, LSTATA(1), 


TPOLNT = JteuihT + 1 

GN TO b6 

CALL INSERT (CTELAKK, TECINT, LCHAFS, LofATE( 1)», c) 
IFOTNT = JFcCINT + 2 

GO TN 65 


STARL FeOTESSTIMG THR | OUTINE STL IEReATS 


LF UJ \yT = J 
J = iben (2) 
TERE RAP Sy) 
17Ye: = J 


aF (J elle 4 eOre di eble 46é) Cu “Tn Tae 
CALL BLP KRKS 
aF (CJ eNte G6) Ge 19 15 


E4USLICIT €) = 46) % 
Litster T TWO SLA BKS, 


CALL Thok TT CYELONKy TrOab Ty COHAPS, LETATE(C1)», 2) 
LP Gs NT = iF ott *# 2 


GO TO 65 
15 CONiLNUE 
GOTO € £85 £75 Sly Sls 22s 175 17s 175 A?s 200 22s 


> Lo, 24, 26, 
} 1 275 125 335 17, 4H, 4Sy 46y Loy 185 “oy 135 “dy 
| S$ 50» 46, 46, 175 
2 17, 17, 5b, 17, 17, D7, 17, 17, 61, 755 63) J2-& 
G 
C tm KE £ SPela AL CHECK FOR CATA STATEMENTS, J = 166 
¢ DatT® Ci: EATOS),12=159) 7 LIST 7 TS OKe MUST CHECK 
C v FOrn THE 
C NoLAVIVE POSTA TONS GF THE MATCHING ( Dy T4y ANT 
Cc v THE =» Loe 
Cc 


146 aF (CLSTAVCOCTPCLHT) eNEe ITRFUNTT03)) GO TO Le 
14 = MATLHO(TROINT, ACHAFS, LSTATC(1)) 
Le = TSCANL CL PUNO! (CS), TROL + Ly seHARS, 
© LSTSTE(1)) 
aF (IB ot™. 14) GO TH 23 


Y 


GO TO fe 
o 
ie CHEEK FuUF (€ NW = FOLLUWIMGS THE TY¥reE WORD JUST 
€ < LILNTIFION. 
c 
17 LF CUSTATCCIFCINT) 6t9. LELIT1 (309 GOTO 62 
18 JF (ce Statice CLIECTRT) ¢@c Qe. sFUNTV(E)) GUT) 6c 
c 
?) WwOW WOK Tre STAT EMTS, 
Cc 
oa Ya € £95 Gis Gis C85 Sia Say Sig Sly VSiy Cy ey 
7 23, 24, Pby 
1 27, S15 IO, ary, Gay 459 LA, 47, 47, 4O%4 47, 4G, 
¢ Diy UB, Rs, Wary 
* Bey Gy Sb, ST) SPa STy Sby S%y Shy Ty OT) 2 & 
19 ALK TWSE CT CILLA WK, IF QUINT |= 15 LUHASS, LS: ATECL) » 
Se 
ab OLhT = 4 ¢ CSCANLOTRURC (1), TROINT ¢ 2, 
$ aPdheS, USTATE (1)) 
GO TA 61 
G 
C Site Si. fissch TO vcourtcte 
Cc 
20)6J = if 
C 
C ote “He 1 Ve CUbTemMEnTS Th io ale ay SfRaiMG, 
Cc 


21 Chub “1 GRE ¢€J = &) 
Gu 79% 63 


© SUWs vebohoe (J = 15)6 


ai ond tn 


aan o”0 


aaND 


aan ann 


aaan 


22 


23 


26 


27 


$ 


sa 


Tvs nY & RIA Lary 


CALL INSERT CanlAnkK, LROaNT = 1, LiHaho, LOSATL(1), 
1) 
GO 71 05 


Dal STAVEMENTS (US = 16)6 
Cele TeSEPY (doll NM, TROTHT, LOHPRS, LoTeiclid, 4) 
Trorhs = JFCTND # & 
GO TN €5 
FVEPAT (J = 17706 
ICHA-S = JCHASS = IPOI?1 


IF ( 9807. KOCNVELUZ)) GO Th 6° 
Ti = KECLT Ve, WOU) 


Do 25.32 = Ny BACB, 20 
12 = MLNOCIPUTNT 4 °°, LOHAKS = 1) 
Ic = De 6 & = TRagee 


JF (Iu elke {) GH YO 64 

FNC UDE (IC, 10C, LFGuT (17)) CLSTal (C0), 
jel oiwt, £2) 

LeuLiht = JPOINT ¢ 1409 

CONT ENE 
GO 710 69 


DO STATESMEN) (60 1 2 = 1911) Ch = 29) 6 


te = NUPbSCLPOIN, cetifiS, LStatTi(1)) 

TR UN ekts &F GO 10 62 

IF ( otUT%. KLISTOLEUCTINI NI) S50 TO 43 

CALL KU (") 

CALL INSET TE CLELANKy ITPUanT, LeHAS, LOTS TEC1),s 1) 
GO TO 64 


SOMPUTED OC TC «ws = 19)6 
Cabo INSS TT (Seth nky IPCLING © dy ECOHAKS, LSTATE (1), 
2) 
CALL LHNSERT CIELANK, ITPOTW1 = 35 LUHARS, ULSTATL (I), 


Ire Cant ¢ 35 
NLact (LRPOLW1 » LEHARPS, LSTATIC1)) 


~ 
73 
Cc 
“4 
Zz 
4 
now 


THESE $UST FE A sTALEMcWT NUMBER UN THe FIKST 
FOSITIUN. 


iF (N elLEs &) GO TO 62 
GU T0 29 


26 


—— or - —— . — —— 


} 
j 
: 
| 


— 


aoa 


oon 


(omens) 


oan 


32 


33 


34 


© 


Nv = NL ANCIPCINT, LOHAFS, LSTAT.(1)) 

AF ON ehte ©) CLIN 33 

ZF OC eMule KLISTCTECLNG gt)) GO TG 461 

eA KU CN) 

TPO. 11 = Tecret + 2 

AF COSTALLCTRCURTE I) oct Ve JTEUNCTOC4)) GU 10 384 

GL TM 238 

AF CLSTATCIFUTAT) 6600 FUNCT (2)) AFutwT = IPOTNT 
* ¢ 

GN ~y of 


CALL INSERT (JELANK, IrGitt = 2) LlHAKS, LOTATI(1), 


IPul vt = IFGINT # 4 
h = NUMASCTFOINT, LOHAN Sy, LSTATZ(1)) 
LF OGM «GTs G&G) GE TCG 32 


AsSTenN-o bl TU (SU3SFCTIUM). 


CALL These? (3elAMKy TRVINT, LCOHPTS, LSTATFC 1)» 2) 
PORE = IbCGINT + 2 

TFULNT = ISCANL (1 PUNC1 C3), TROLINT, LOHARS, 
LSTATE(1)) 

CALL INSET CICLANK, IPOINT, LUHETS, LSTATE( A), 1) 
TROT NT = IFCIN’ € 2 

GU TO 28 

aF ( @hUTe KLISTC(LPIIN: gwd) FL TO 65 

CLL KU (CN) 

Sir = ICRKAVS = ItNUM(1, 1) = 1 

GO TU 66 


IF SVAicENy (SF = 214)6 


CALL INSERT (TolANK, IFUINT = 1y LT HAROy LSTATE(C I) y 
1) 


2F Os NT = 1 + }ATSHOIPCIAT, LCHARS, LotTATE (1)) 
Call INStei (LelLfNKy LPOINT, LOHASS, LSFATE(A)» 1) 
T&uiNl = IFcCIn™ + 1 

N = PU BY CIPOIRT, LO HAFRS, LSTATE(1)) 


ARTY HMe71lc CF LOGICAL ? 


aF (N olLEe 9) GO TO 36 


GO TN 35 
4POI NT = I*cItT + 1 
N = NU SSCIPFOINT, LUHARS, LSTATE(1)) 


iF (N elts 0) GO TC 64 


27 


rn rc ge 


ERR: 


Ace 


NE HERERO ES Sn ner Emre ee 


' 


QAKITHMETIC. STURE THE STATEMENT NUMN3Z3ERS. 


LF ( ehOTe. KLISTCIFOINI ,N)) GO TO 65 
CALL KU (N) 
GU TO 34 


LOGICAL. <ibLecNTIFY THE CONUITIONAL STATEAENTS 


JJ = TOFNT (2) 
IF (IS ol Fo LF oARe JI eGie 45) GO TO 77 
Go TOA ( 279 3BSy 325 Sty Yhy O7y 4Ey 395 39y Yoy Bay 
p SBy 50, Ey 

465 3289 38, 35, 27% y BH, S8_y S7y ZBy Bbq OLy 7H, 
63) JJ = 18 


CHECK FOF AW ASTERISK. 
IF (LSTATECIPCINT) 2EQ. AFUNET(5)) GO TO 74 


CHECK FOR A ( Of AN = FCLLOWING THe CORNTIF Sk 
NAHE, 


IF (cL StaAte(LPCaNs) etQ5e 2FUN7™" (3)) GU id 62 
TF CLSTATE(IPODNL) e&Qe LFUNCT(B))Y LOT) 03 


Go TN ( 275 S15 353 4X, Uy B7y 4boy 475 47y 4A U7 y 
4%, Sy YEy 

4B, 52,5 5d, oes 5b, 57; 5ST, ST, 5b, 575 oly 78, 
63) EES 26 


CALL SUBROUTINE (J = 22)6 


CALL IWSLAT (CTCLA RK, ITPOINT, LOHAT CD, LSTATE( 1)» 1) 
ir QInT = IFCINT # 2 


LUOK FOXY RUBS) ARDERD FEVURNS 


Fi IfcuTN™ ¢ £ 

If2 TCrhis 

LF ( eikiOTe CHEE K(CMFDIUD NS 7p LFLg The gLSi* TFE(1) »LF2)) 
60 T9 65 

TPuTnt = 1 ¢ TSCANN(TFUNC, (3) 9 2PUINT, GOHATS, 
LSsTa7e(1)) 

i = NUMSs (IPULNT, LOHAFS, LSTAT=(4)) 

IF (aN elie GS) GU "FC 4&3 

GO Td &2 

irPgi‘t? TEUTNT © 7 

N NU BUCTFUING, LCHATS, LSTATECL)) 

ZF Gre eht ee AF) CUO TO 4&8 

QF ( ehOTF,. KLISTCIFOITNigN)) GO (0 G2 


CALL KU (N) 


GO TO 4 
43 JFOLNT — te ae ae 
Gu TU 65 
c 
c ASSTGH STATEMENT (J = 23) 6 
Cc 
44 oN = NLMFS CIPCINT, LOHAES, LSTAIZ(1)) 
IF «Nh olhee €) FL TO 62 
IF € eNUTe KLISTITFOINT,N)) GU TO 65 
CALL KU (N) 
CALL INSF# (JoildKy TrOINT, LEHARS, LSIATECA), 1) 
TFOTRnyT = JFCIK” ¢ 1 
LF ( eteO7 we CHE UK 2H Oy Sy TECaMT gl Or iS gLoTATT(A) 
$ TOOLIKT)) GO TH 65 
CALL IteSF7T (Tele Nw, LrOTNT, LOMAFS, LSTATE( I), 2) 
G0 79 06 
C 
Cc CONT TNUF (J = 24)e 
C 2D) FF NWO STAVE se ND LoPeo GVA Ue = ode | 
C 
G6 EF €weAbue shee vd) &GO. FO 69 
GU tt 67 
C 
c FEAU O8XsVYV) LEST (J) = 25). 
On WIT OXXy,YY) LYS? (oi * 280% 
c OTCGOE CXXyVYe VY) LASe (J = 22) 6 
Cc EACGPME EXXgY%e VY) CIST (J = %3). 
e 
46 CALL INStO7 (Fath ivky TeGamht © Jy LOHARS, GCOFATE (1), 
a 
LE OTNT = Treint © 2 
1 Sd @ So TIHCIECIAT, LOKF FS, LSTATZI(1)) 
Chun CSte T CIELERK, Fy COMES, LETATE(A)», 2) 
LeGL Ny = LSC Ath (2 EUICT (2) 9 TROIKT, ILHArS» 
* ESTOT ECE? € 2 
C 
C nREeAL KK, LISI (J = 26)-6 
C fT, XK, IS (J = C7 de 
c PUNCH XX, LIST CS = 2D 
G 
c SHEGK Fuk Lie? = OFurO7FE TO KEP Ay *, PRENT *y 
c » t~O)e 
Cc 
GU? EF €USTATCIIPCLET) cE ZPUMTT (572 GG TQ 65 
N = Whi te (aPuTiv’s (ChR Sy {STAT_¢127) 
i aF (% 66%. wu) GO TC as 
Cc 
; C vw) Foi tT Luobie ASsu"t thse THe, om MA ASELISG 
; Cc rs 4B, 


ee Oe tee | 


29 


agagngn00 


aan 


qQaaqan0 


aan aQaaao 


aan 


a|qan 


46 


49 


50 


51 


52 


53 


54 


WHITE, Gl FUNCH SThi fF Met, 2hSE RT mw OE K ohFGR.. 
THe 
NQnt LIST NA? &, 


CALL IRSE<) CIELENK, TFULST, LOHAS, CSiATE(A), 1) 
IPULNT = J&CIbyY + 1 

GO 7S 65 

TF € ehhOT. KLISTCIEGINT ND) ECO TO 65 

CALL KF (N) 

CALL KU (%) 

Gu TY 65 


SUFFOR IN (XXysVY¥,V) LAST (J = FG)- 
CALL AWSirT CIclANK, TeOLNWT = 3, LOHASS, LSPATE(I), 
i) 
GO TO 51 


AUFREE GUT (4¥5V¥s 0) UIST (2 = 34). 


CALL TnSti i (ITELANK, IFOLNT |= Gy LOHARS, eSrPhin(.), 
1) 

CALL INSERT (CJELAENKy IFUINiy CUHAR Sy ESTATiLC I), 1) 
TFOTNT = IJFCINT + 1 

IF OINT = 2 + RMATCRCLPOINT, LOKA Sy Lai AT=(1)) 

GU TO 61 


STA SIATERFNT (J = 34)0 
ENTITY Statement (J = 35)6 


CALL INSERT (LELARKs, ITPuUaNiy LUHARKS, LSTATL( 1), 1) 
GO TO 66 


nme LUNN (J = 36).6 
IF (CICHAbS ebie 6) GL IYO 66 
CHECK FOR fi FMULTL | STAVEMCEHT © ECCE Le 
1F (TOGLLA® »bie G) GO TN FL 
a POINT = 1 
LCHARS = JFCikT = 1 


SEE IF THE NEXT SELORD IS AK FND STAFEVENT. 


ifl = 7 

192 = 72 

iF ( «NOT. CHFUKCEN ID, 3p IRL yI® 2gL CAFO (1) 1 P3) ) GO TO } 

66 f 
} 


IF (NONL(I3LANKyIPS, IP2sL CAEL (1)) «GT. IF2) Gu TC 73 


aan 


aad NaAaAaGAANG 


aan aan oon 


aan 


55 


56 


57 


53 


60 


61 


62 


63 
64 


a& (LCGHALS obese 2ECINT) GO TC 61 
2F (CiuoLL ae’ .F>. «) GO SOr (Et 

J éuoivl = JFUIRT = 6 

Gu 59 5% 


USE (LF) Coos She 


aF CANT md 
GN ~9 b5 
oN Free CJ = 3? )e 
LW WE (J = S90 
SAUKSF fce (JS = GU)e 


*3USe (J = 42). 


CALL InmSE”T CIELANK, IFUINT, LCHOPS, LSTATE( 1)» 
GO ~*~) 26 


J = Gi. SUFTE ESS THe WOFD "TYP Ns 
CO 59 1 = 1, & 
CALL SHIFTL (IELINK, 15 LOH+t Sy LSIATZ(1)) 
CUHTINUE 
GU TO 14 


CHANGES A NURELE ES RFLTUTN 10 J = 4G, 


J = 4h 
ZEnb IR a J 
IvYer =o 


NANFLIS) (J = BSY% 
CALL INSE:? (SELENKy IFOINT, LUHAFSy, LSTATECA), 
IFul tt = TECINT + 2 
60 T9 05 


REPLACTMENT (xX = VV) (J = 45) 6 


J = 4 
ITYSE = J 

PFOCESS EQUAL SIGNe 
CALL ALIGN 


IPOINT = 2 


1) 


2) 


nanoana a0nan qgqgnan0 


aaNag 


66 
67 


69 
69 


76 


71 


2 


ts 
74 


CALL SPALOUT 


IF (NVALUE 
NSTATN = 
IF (NSTATN 


eL£Es~ 0 GO TO 66 
NSIATN € 1 & | 
eGTe PNSTATc) GO TC 7E ‘ 


NVALUE IS THE UFIGINAL STATEMENT NUMBER. 
NSNUMC IS THE NEW STATERFNT NUMBER. | 


KSNUM (1, NSTATH) 


NSNUMC = 
ISNUM = 


= NVALUE 
NSKURFC + 1 
NVALUE 


KSNU4(2y NoTAiWy) = NENUMC 


CALL OUTPUT 
CALL ReSFTX 
NCAKD = 
ITF (IOOLLAR 


MULTUFLE 


(LST*TEC1)) 


elt. C) GO TO 71 


STPTENENTS SePAPATECD AY & CULLAK SIGNe 


SHIFT LEFT F&C GO AGAIN. 


LUHKS = 
ICH&A&S = 
pO 7 
LSTATE (T) 


LURAFS = INOLLAb 
LCUHAE.S 

= 1y LOHAKS 

= LOTATECI * ICOLLAF) 


LSTAi:t(T + ILOLLAZ) = G 


CONTI NUF 
Gu 79 14 


GLEAR THE ARRAY Q€NO FETURK TO STAR’ THE WEX™ 


RcCOhLe 

pO F2 1] = iy LEHPRS 

LSTATECI) = JSLENK 

CONTINU 
LuKa&eS = 
iF CEFRANS cESe 83 GO TY 3 
IT7RANS = TEENSFECITRANGS, 72) 
NCA = = 2. 
GOGO 19 

Et PEGCESSING FOLLUWING & FETURiN STAT EMenT, 

NOL 29 = 0 
TF GwvAtvuei ebLis GC) GO TO 75 
NSTPTN = NSTATM @ 4 


IF (NSTATN 


ebTe MiesTATE) CLO TN 7b 


KSNU (1, NoTATE) = NVALUE 
NSwUMC & 4 


NSNU-IC = 


oO 


90a 


o ANN a 


qa 


aan 


ann 


Oo 


75 


76 


77 


78 


79 


ee | 


Ae 


53 


ISNUM = NVPLUE 
Kowuri( 2, “STAIM) = NSNUME 
CALL OGUTFUT (LSTATE(1)) 
GO TO az 


IF (LUHArS «GT. 3) GU *N 62 
2FGUMI CL, 12 = ILOUNT (1, 1) = 1 
GO TO 83 


FINE 42°03, Ir Felh,y CLSTATECT), 1l=t, LOHARS) 
aF CITYFE eNte 45) SO TH 62 

Go Pe 7% 

rely LOG, HRSTATE 

FRINT 2955 CLE IRTECT)» Taig UCHAMS) 


OU4P THe RFIAT NCE OF THIS FOUTINE. 


FLINT? APG, LCERD, NAME 
SewIne LUSTAT: 
TFe he 
K 7 


ou 


CHECK FUR Bh © MD STATEMENT» 
TF (UHECKCEKDg SotsyT2>2,LCAr. (1) 9IR3)) GO TO 44 


CHEUK FOF fF LDOLLAL Slow TNOAChATIWG A MULTIPLE 
STATEMENT. 


N = ITScAthl (JPUNCT (6), N # Ly 72y LUAPID(1)) + 
uPOOUN wibhs rer GO To “be 
Rel THE NEXT RECORL. 
BTR (LUT, OS} ~ CARN 
PFOUML CLs 2) = ISOUNT CLs, 2) © 4 
Tr (£OF ( UIN)) t2Z, 73 
Ew POUNLe TSry AMy STA .T THE NEXT. MUUTINE. 


GALE RESETS 
66 "8 1 


oF, pEARPINATE © 
TE OF oJ 


FCUWNT Cig 2) = TFOUNT (Ls £9) = 1 
Ces LUE 


33 


— 


FO.MAT icufi ) 
FOaY AT Oi bROK TN he FIST FIVE GOLMANS OF 
CEL / 


> 


’ 


* THEE “SFGCOPE HAS @EeN LER: Th THE FINAL Reunere 


AS & COKRCNT.* 


) 


FOKWHAT ( 7AKRG FECSFAM, SUSr OUTIMNE, FUNCTIYN, On 


PL. Ook JATA SIA 
FL C4 nT FOURL FC THIS EGUTIRES* 7# CHL K 
FIRST ANO LAST* 
BeEFIVrE COrFIcING.* ) 
FOR 2N THe FOLLOWING STATEMENT. 


FOR MAG *ii be ARRAY KSNUM FE FITLL. 
tXFLUTA LE & 

SS cATEGENT KUMEERS EXCELTES %, 15 3 
FORMAT ( OTHE PREVIGUS EF RCK FORCES tHe 
TERMINATION OF FFuCceS* 


*SING OF THE TAPUT FOF THis ROUTINE Ud sTAT fadhT 


“ (C20X, 

a09A1) ) 
FOR R44 ey }VFUL wn FCO° a wOT PSOCTs$S2) 
oOOKL, 

* FO af RS 


END 


te 


AAMRIAMANOAO 


aaAaWnaanananIiann 


te 


SUaFNUTTKG At eRKs 
FHIS POUTIKE SUPPFESSES SLE Shrike I THE arerky 
PICT EXELET 
THOSE TR HEELFFITH FYFE STATEMENTS, 
TY ALSA FINCS THE © SEPASTET CPS IN MULT TPLE 
STATEMENT RECOPMS. 


EOmn4AON SALLZ ICHAEPS, FOOLLAF, IL"hOP, IWNUM (2, 
5%), TEETAT, 

IP. Gy, IsKU", TT YE, Teoca, KF Qn” (199), KFEOUT (2, 
190), KSbUM 

(25 GPG) > LEFRED C2 Cd, LORASS, LFOUT (1000), LSTATE 
(ZN), 

LWOR IS, NEMF (4), KROATES, NEXT, NFORMN IY, NFCUT, 
WKF OM, NOUTS. 

MOIISH, NSNUMG, NSTA TR» NUMAET (7), NUMIN, NUMK, 
NVALUE, STRIKE 

(2, iff) 
CCMMON /SCATAS Cy CHD Hy TSLANKy IFUT, INTEGER 


Cif), TRURST 
(14), ICCURY (2, &)y LUIN, LUOUT, LUSTATE, MFOLT, 
FLCHATS ’ 
PMEOQEM, MNSTETE, NCARD, KMAX, NUMMPX, PEUGIEAM (7), 
EEVUOM, 
STAFF, xX 
DIM" ANSTO LIS? €) 
INTL GER Cy CLA €3)5 He HEF C235 STAR, &X 
(OGIcat AELEAP, VALET" 
FQUIVALEMCE CLTST (1), LSTATE CL) 
NAT4 MEG 4 LNs Lets Ib* 7 
NATTA HLr 7 1kHy LHL» 1KS / 
1LPURKC, Use aS ta Se oe Ce SSeere 
/ 9 ( ) = q * = = + - 
LNOK FOR HOLLEFITH LITEFALS IN DATA, FORMATS TF, 
CALL, 
POINT *, WEITE (LUy*), AND FEPLACEMENT 
STATERERTS 
FIX THESE, TEEN TEMOVE ALL BLANKS, 
TNEO INT = IFCINT 
IFOLLAR = 0 
ISTOP = NCLTCIBLANKy 1, LCHARS, LIST) 
LCHARS = IFRARS = ISTOP 


VALID eF AILSES 


GENFRKATE STAFTING LOCETION, 


aaAnaAn 


aAaaAN aa aan aan aan 


aan 


WAn Or o@ 


CASE OF CITYFE) 
CASE (55697 9%p991051151725123,15) 


IF CITYPE eNEo (5) eAND. TIVYPE wNE. (6) w AND. ITYFE 
NE. (7) 

eANDe ITYFE eNEow (8) eANCe ITYFF NE. (9) J AND. 
ITYPE eNE. (10) 

eANUe ITYFE oNEnv C11) oPNTe ITYFF NEw (17?) ARC. 
ITYF ENE. (1%) 

eANOJTTYFESNES(15)) GO TO 1 


SPECIFICATICN STS TENMENTS 


IFOINT = 1 
TSTART = JFOCINT 
60 TO 8 
CASF (16) 
CCNT TNUE 
IF CITYFE eNEe (16)) GO TS 2 
DNATA 
IFOINT = ISCANL(TPUNCT (1), 1, TSTOP, LIST) 
TSTART = JEUTNT 
GO TO A 


CASE (17,21) 


CENT INDE 
IF (CITYFF oRE. (17) eANT, TTYPE eee (24) GSO TO 2 


FORMA™, IF 
TS OTNt = ISFANLITPUNCT (2) 5 15 TSTORP, LIST) 
ISTARrT = TFCINT 
GO TO & 
CASE (22) 
CONT TNUE 
IF CITYSFE «NE. (22)) GO TF & 
CALL 
IF CI NT = 2 + TSCANLOFLE (2), 1, ISVOP, LIST) 


ISTART = TE CINT 


aan 


AION 


AIAN 


ano rv 


te) 


aon .OoO9y 


ANANIANDNAYN 


GO TN 8 . 
Cast (27) 


CCNT TINUE 
IF CITYPE eKEe (27)) GO TO 5 


PRINT © 
TEOINT 


ISTATT 
GO T9 & 


TSCANL CIPUNST (295 Ny TSTOF, LIST) 
TE CINT 


CASE (26&) 


CCRT T NUE 
IF (TTYFE eNE. (2°99 GO TA 6 


WRITE (LU,*) 


TROT NT = ISCENL(TREUNST (U0, ty TSTOP, LIST) 
ISTAAT = If cCINt 
GO +4 P 
CASF (45) 
CONT TNUY 


rR CEFYPE sNEe (55)? Go Te F 


CE OPLACE MENT 


TF CINY = ISCANL (TRURTI CF)» Ly TSTOF, LIST) 
Ts74 nt = JFCIH” 
60 TA 6 


CASE FLSF 


€ OWT TINUE 
TFOINT = PS her 
Jovact ie | 


END CHSE 
C Cn? TINUE 
NOW SCAR FCT A lg WHICH ®#3GH™ Thoicaif & wULTI «- 


STATEMERT 


CER Rs 


TF & * {F LEES THEN FOUR CHAFACTERS FPOP VR= ENE 
GF "HF KREEORL 


37 


4 


AIAIANIADO 


aagaNnNaNn 


aaa 


it ChNhut 


TQUTT = 
nd 9 T 


Fc A SEEANATCE, 


Isicr - 4G 
= JSTAR™, TOUTT 


IF (LIST(I) ehEe TEURSCT (CE) GO TN ¢ 


iF ¢ oMOT. 


COOLEST (LIST pT yg TFT NT ISTOPZITY“E, 


S$ LCHARS)?) CO TC 9 


JOOLL OF 

TOHANS 

GO TO 19 
© CONTINUES 


10 CONTINUE 


POLE OF Y 
NOW SCAN 


I 
127of = I= 3 


CETERMINEN. 
FOR SPECIAL CHARACTEES 


SCON CARLY CETA, FORRAT, APO EXECUTABLE 
E STATEKERIS. 


IF CITYFF eNEe 16 efANODe Ityre ehFe 17 eANUe TTVYFS® 


28 24NN, 


N td > 


oN =. 21 oN 
TT yYPE eNEe 


Ge othe LIYFE eNC, et At). aT Ye= eNEe 


ITYPE NH ace Ah Te TT YPF eN& 045) GCE TO 25 


SERS E ESE SRE EEE ESSERE SSE EES ESE RES ESEREEREREHERSEETE HE 


= BESREREERUEEEE 


LUCK FOR Hy Ly CFF 


ASSIGN 17 
ASSIGN 14 
LCl = 
IPIn = 


TOT VLD 


*GICLM 


1 
IST ART 


UNTTL (LOL CT. 7) 


11 IF (LOL G7. 
IFOINT = 


WHILE (CLECTRT 


3) GO %O 14 
ISTAET 


el*. ISTOF) 


12 IF (IPOINT .GE. ISTOFD GO TO 15 


IRTGHT = 
ILFFT = 

$ LIST) 
IFOINT = 


ISTCF 
ISCANL (HLA (LOL), IFOINT # 1, ISTOF, 


ILFFT ¢# 1 


IF CILEFT .GF. ISTOF) GO TO 15 


CALL QOICIT 


(Jv, ILEFT, IMIN, LIST, ND 


38 


ee me | 


ITE (M WEF. 0} GC *O 12 


Cc . 
c IWYOKE VALICATE (LVyTHI,I7YPS yVALTO) 
c 
60 TA 2° 
43 FORT TRUS 
IF ( NOT. (VALID) GO Te 42 
1°IGHi = IUFFT # Ne 1 
5 
c INVOKE FTCTECT CILFFT, IF IGHT, TPUTNT) 
: 
CO 7 26 
14 COAT TNUE 
c 
C FNP WHILE | 
GO TO 12 | 
15 CRIT NUE 
Crk = [ft * 4 
: 
5 ENC UNTTL 
: 
Go 79 114 
16 CCNT TNUF 
c 
ia SPSS ERUERERSHAER TES EHR RSSAESERRERSHESEREEEEFEA SEE EEES 
Cc ¢ BAERS BE EEE ERE 
¢ 
C LUOK. FCP “y #5 mF ¢ 
c 
ASSTGN 70 © TCICLE 
ASSIGN 12 © TPIVLP 
Let = 4 
c 
c UNTTL (LOL .CT. 3) 
C 
17 TF (LOL oGT. 2) GO 10 22 
| IFOINT == TSTAPT 
c 
c WHILE (IFCTAT ol T. ISTOF) 
c 
18 IF (IPOTKT GF. ISTOF) GO 7M 24 
IRTGHT = ISTCP + 4 
1LEFT = ISCANL(OLQ{LOL), IFOINT # 1, ISTOF, 
$ LIST) 
IMIN = IFCINT # 4 
| IFGINT = = ILEFT # 14 
IF (ILEFT «GE. ISTOP) GO TO 24 
IKIGHT = ISCANL(PLQCLOL), TLEFT # 4, ISTOF, LIST) 


IF (TPIGHT .GT. ISTOP) GA IN 18 


Ana aan aan aan aan aao 


aaan 


Aan aano 


aan 


19 


20 


21 


22 


23 


24 


Iv = ILEFT - 14 
INVOKE VALICATE (CIV, IPTK,TTYPE, VALID) 
GO TO 28 
CONTINUE 
IF ( NOT. (VALINY) GO TO 18 
INVOKE FROTECT (ILEFT,YFIGHT,I©OINT) 
GO TN 26 
CCNT INUE 
IF (LOL eNF.e 7) GO TO iF 
CHANGE * TC “ AMD PROCEFO. 
LISTCILEFT) = LISTCIFIGHT) = TFUNCT (11) 
END WHILF 
GO TO 18 
COKT TNUE 
LOL = ERE * 4: 
Fd UNTIL 


GO *O 17 
CCNT INUF 


FNO IF 


CCNT TNUE 


AFTER THRE HCLLERTTH LITFEALS HAVE DEEN ALTECEL, 


SQUEEZE CUT ANY EMA TNIAG SLANKS, 
I = 4 
UNTIL (SPRESS (Tyg ISTOF,LTST) oe CoD) 


IF CSPLFSSCIyTSTOP gL IST) eNEe Ceol) GO TI 25 
1 Sb fag 


ENO UNTIL 


Ge TN 24 
C Ciel TNUE 


NONE 


40 


A ED 


ICHARS = ISTCF 
TFGINT = INFCINT 
IF (IDOLLAR eLFe C) LCHAFS = ISTOP 
KETURN 
ANTEPNAL SLUFROUTINES 


BRRERERERREEHENEEEEERESESHPEEREREEREHESEREE ERE THEREBY 
$ BRUBERHRERHEREREE 


PRQCECUFF FFCTFFT (TLEFT,IFIGHT,IPFOINT) 


ALTck THE CHAPALTERS ESTWEEN ILEFT AND IRIGHT. 


AANAINAIANIANAANANAN 


26 CCNT YNUF 


00 €2 = TGCRT © 4, ER TCHT ~ 4) 


aan 


19°920 TLFFT + 4% 
T°93949 TFICHT = 4 
no 27 J = Ieye2n, Teggi9 
LYSTCIy = LISTER) © 4 
27 CONTINUE 
IFGINT = IF ICHT 
GU TO ThLM, € 20, 14) 
END FFCTERT 


SERRE RRR EEA ERES SR EERE ERO RH ERE EREREHEEEHERER TREE 
¢ PR SHEREEEDE REE 


PTOLFCURE VELIOATE (CTVyIMIN,SIVYPF gVALIO) 


TF BN APFAFFNTLY VALIO CONSTFUCT TS FOUND, , 
Ss FITEMEY TO VERIFY 

SY CHECKING THE EFRECTOTAG CHATACTERS, BEGIAWIAG 
bs WITH 

FOSATION IV. 


Ana NINNANINeEO ANAND 


28 CCNTTNUE 
I = NCHTCISLENK, TWIN, TV, LIST) 


CAP OF CITYFF) 


else (16) 


%,7NMOOND 


JF CTTYFE ohFe (1699 GA TO 29 


ATA 


aon 


Veta = LTEV(TI SEV TEUPFT (1) 0% ohLSS1 (CL) 
tT ecMe TPUNC (2) Ch eLIST ( 


aan 


qAXAaAN 


aaa aan aan aaa aAAMN 


Aa 


1 


29 


Ne 4 


30 


$1 


32 


o-~-y-— -~ 


T) eFQeTEUNT™ (FE) 
GG TO 35 


CASE (17) 


CON™ TNUE 
TF CITYFE eNEe (179) GO TO 3N 


FOrHAT 
VALTN = LIST(I) ef Ge TFUNFT (1) oe MeLIST(T) 
ek Me TFUNCT (2) -CheLIST ( 

1) eEQ eA FUNCT (2) OV eLTISTCID EO. Xe Or eLIST (TY) 
e FQe TFN T (5) eC RL TSI 

(JT) et Ve TFUNC? (11) 
GO TN 35 

CASE (21,22) 


CONT TNUF 
IF (TTYSE oNE (21) e ANN, ITYPS eoNEe (22)) 560 i 2 21 


IF & CALL 

VALTU = LISTCI) © EV TFUNTT (2) 698 WLIST(T) 

© EM TEUNT. (3) CFL TST ( i” 
J) eEVeTOUNCT (7) 

GO TO 35 
CASE (27) 


CONT TNUE 
IF (TTYFE eNFe (279) GO TO 7? 


FeEINT # 


VALIO = LIST(T) EQ TFURFT (2) 
GO TO 35 


CASF (28) } 


CONTINUE 
IF CITYPF .NE. (28)) GO TO 23 


WRITE (LUy*) 


VALI = LIST(T) se EQe IFUNTT (2) eARLIST (TI) ; 
eEQe ITPUNTT (4) 
GO TO 35 


oom oe) 


yaa 


33 


34 


%5 


CASE (4E) 


FONT TNUF 


TF CITYEE QA, 


PL FLALE MEN) 


(45)) GE TN ® 


vali = LISV(T) FO. TTUNCT (8) 
Ge TO %S§ 
Fase ELSE 
CONT TNUE 
vAl—Io = eFFLSF. 
END CESE 
CONG TNUE 
GO TO Twtl, € 19, 13) 


FNOD VALINAT 


ED 


r 


43 


rer ne a rr 


: Ry ihe * 


a 


| 
| 


AANMAANAAQO|AND 


Asaan 


anon AaaN aaaanan 


AaOM 


$ 


WAN AHA 


LOGICALFUNCTICK OOLLAR (LIST, I, IPOINT, ISTOP, 
ITYPFy, LCHARS) 


IF THE ¢ IS EETWEEN PLEENTHESES OR THE STRING CF 
CHAFACTERS 

FOLLOWING IS NOY A VALIO STATEMENT, IT CANNOT EE 
A SFFARATCF. 

DOLLAR OCECTICES WHETHER THE ¢ AT POSITION I IS A 
SEPARATOR 

OR PAFT OF 6 HOLLERITH STOIKG,. 


COMMON /DATAS Cy TNDy Hy TALANK, IEOF, THTFGER 
(10), IPUNCT 

(11), ICCUNT (2) 4&),) LUT, LUOUT, LUSTATE, MFOLT, 
MLCHARS, 

MNFOPP, ENSTETE, MCAPT, NMAX, KUMMAX, PROGRAM (7), 
RETURN, 

STAP, ¥ 


@ 
oO 
ios 
CS 
[os 
ros 


TRUNCT 2° 2S 4& 8 «& % 
c 


' 
L) 
+ 


CIMENSTCK LIST (41) 
DOLLA? = eFALSF. 


CASE OF CITYFE) 


CASr (14) 
NATE 


IF (i TYVeEet eNFe 16) GO TG Z| 
IF THE FRECECZTAG NONSL ARK CHAFACTER TS NOT Psy 


THES “3 
1S NOT & SEF AFATOR, 
TLEET = NOAR(TBLANK, 45 JT, LIST) 


TF (LISTCILEFT) NF. TFUNCT(41)) GN TO a 
ATHERWISE, THEE & TS * SEPAFATOR, 


GU TN A 
CCN TNUF 


CASF (17521) 
FORMAT, IF 


IF (ITYFF wNEe (17) eANT. TIYFE oie (21)) GU TA 2 
IFTGHT = METUN(TEOINT, ISTOP, LIST) 
IF (IT ol. THIGHT) 560 TN G 


| 
| 
| 
| 


Pe ee ee ee 


Aaa 


MAIAaAA 
9 


ns 


aaa oe 
AAA i) 


AAO oO 


agaqoardraan 


oe 


1 
4 


GO TO 6 


LASE (22) 
C4&UL 
CONTINUE 
IF (ITYPe eNEe (22)) GO TO 3 
IteFT = ISCANLCLFUNST (2), IPCTNT, ISTOP, LIST) 
| 
TF THE $ IS CETWEEN MATCHING FPARFNTHESES, IT 


Fe A 
CTHEP WISE, IF MUST BE, 


CANNOT 
SEPARATOR. 


ZF CILFFT «GE. ¥) GO TO 7 
ISJGHT = MAT CHIILEPT, ISTOF, LIST) | 
IF (T «GT. ILFFT eANG. F ol. FELGHT) GO TO 8 
GG TN 7 
CASE (27,48) 
POTS ©, PEELSCEMENT 
CONT NUE 
IF (TTYPE aNtee (27) oA"Ce TTYFE oNi ee (45)) GO TO 5 
IF THE ¢+ IS ECFTWEEN DUCTES, I7 TS NOT A . 
SEFAR LTO, } 
FUEE = TSCAWL CF FURCT C14), TEOTNYT + 4, Ty LIST) 
TF CILEFT «6&6 TT) Go TN G 
T°1GH™ = ITSCAMLCTEUNCT (1125 ILFRFT + 1, ISTO, 
EIST) 
Te. €2 oG%e TESF™ oAMDs EF ate PRICHTE GY Fe 9 
COMT THE 
IE (TTYOF AHF, 45) 50 19 & 
KG = TSCANL(TFURCT (CA), T # ty TETOP, LIST) 
TF CK of Te TSTCE e828 ND. KE e6“e Fe) GO TN 7 
LF ENG’ HER = FCUND, THE © JS ERPOBRALY 
KR SerECAtaAr 
C*S6 (55657929 F%9104911512913515) 
Ceer rye 
TF CITYFE BNE. (5) eANCe ITYPE oNH. (6) AND. ITYSE 
oMiw 07) 
eaNnDe Ttyre olte (6) of Ee Ivver ol Ee (9) eo AND. 
EVYPP oF e CLP) 


o aqgIgNnN 


aan aqQnm 


aaaan 


6 


7 
8 
9 


2 


pI 
3 


‘a 


eA ND. TTYFE 
ITYFE NE. (1%) 
e ANOS TTYEE SNE L(15)) GO TO 4 


oN eg ITveer 


(411) AD. oN, 


SOECTETCATICN STATEAENIS, 
SEFARITCE, 


¢ Cf CNLY 36 


6G To ? 
EN) CASE 
CONT TNUE 


TRY TO ILENTIFY YHE STFING FOL! OWING THE 
JCHAPS 
JFOTNT 
IFOINT 
ICHATS 
JTYCE 
IFQINT 
IJCHALSS 

TF (CJTYCE 


ICh*FS 
TECTNT 
NCL OTELANK, 
MINOCTFOING 
TPENT (2) 
JEUINT 
JrKAre 
olTe 17 


y £ ty CIT) 
+ 20, LCRAFS) 


wom on ow ot 


esPe JTYFF 4GTe 45) GU TO 


YF CITYPE «hE se 45) COTO F 
I9 = ISCANL CTEUNTS (PD, 
IF (IQ eG&e FSTOP) GO T% 9 


it 35 FSTOrs 


THE STFING FCLLUWING THE © IS APRARENTLY 
STATEMENT, THEPEFORT, PSSUME THE ¥ TO BE 
SEEPRPTON« 


CONTINUE 
NOLL AR = 
PETUPN 

ergrn 


oT Ube 


LEST) 


A VALIC 
A 


ANAAIANYAIaAINMIOAaNANNNNIONNONANION A AI 3IINAOYM 


‘h 


tA 


NF Anan ara 


A AN Ar 4 


ma 


ad 


FUNCTION ICEN 


THTS FPUTIEF 


(rh) 


MPTOHES CHAFSCIFE STRINGS IN THE 


CISl ISTéTE Tae 
A MEST®, LTSt,y I%, WHEEES 


1A (14%) 
FXFEEFS 


JUAP TC 
WE, 


72 02504 
Th(3,X) 


TF THE GHAROCTE® TH THE LIST LSTATF 
THE 

“ETCH CHAPAOCTER IN IA (2X) 5 THEN 
TRIS, 

POSTUION. EULSFs EXTT WITH IDENT = 


TS THE MATCH CHAFACTER, 
TS "HF ENO FORE WHEN A HATCH CCCLES. 
TF NEGATIVES THIS MAY ES THE END OF 


THE STARING, 


VALUE. 


SUT IT CUULG CONTTNUE TD A NEW 
TF THE 
MEXT CHREACTEF DNOFS NOY MATOKy, USE 


THE PRSALUITE 


KATCHES 6 


STFANe. 


COON ZALLZ 

59), TROINT, 
TEROG, ISNUM, 

499), KSRUM 


VALMNL 
IF ZERL, CONTINUE CHECKING FCR 


LF POSTTIVEs, THIS IS THE END GF THE 


USF THIS VALUF. 


TOHFES, TROLLAb, IEF ROR, TNKUM (2, 


ITYPes TAI9Ss KFOPY C1000 s KFOUT (2, 


(25 SGV, LEAF (36), LEKArS, LEGUT (10U0), LSTATE 


(2901), 
LWORNS, WAME 
NKFO?My KCUTS, 


NPUSH,y NSNUNC, 


NVPFLUF, STFIKE 
(25 190) 
COMMON /OATA/ 
(1%) 5 TEURCT 
(11), ICCUNT 
PLCHARS, 


(GV, NCBFUCSy NXXT, NECRAN, NE OUT, 


RSETE TN, NUPIFF (705 NUTTIN, KUMKy 


Cy FNDy Hy TSLANKy IFOF, IATEGER 


(2) &),y LUTN, LUOUT, LUSTATE, MFOLT, 


MMNEQRMy MNSTETE, NCARGy KMAXy NUFMAX, PRUGRAM (7), 


FETUON, 

STAR, X 
UIMENSION IP 
47), IF 


(3yc7C), IB (3y78)y IC (3953) y ID (By 


(3575), IF €2312)5 IMP (RP, NNEXT (2) 


INTEGER OLE 


(PF) 


EQUIVALENCE (ahC1dy IdC1)), CIA €235)y IC C1))y 


(TA (424), 
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a0na0 


aan 


0A DFO HOMO RMOMDANADFANAS BWHN Hr SH 


ADANFM SF PW AN FHA 


I0(1)), (TA (565), IE (1)), (TA(775), IF(1)) 
HEADEF ANC DFCLARATIVE STATEMENTS (N = 1) 6 


DATA th ¢ B, i6B, O. 0, thy By By Sie 8. Oe, 
1HC, Of O, AKKy 

Gj @, Sls 8, 6 ENhs By 0) SHT5 Oe Oy GNKe Go, Ge 
1HCy O, Cy 

440, Gs Oy 2kHy Op Oy 1HE, Op Oy TMs By Be ine, 
Oy» Dy LHX, Ny 

165 1H » Oy 15, LHD, 1%, O, LHOy Ny Dy AHUy Dy Dy 


AHL» @, Oy SHE, 0) 0 LHP, Be Op. 1HP, Oy Gy ARES 
0» %, 1HC, A, 

Ny AHTy Oy Cy 1HSy Oy Gy AHI, D0, Oy 140y 45 Dy 
AHN, O, &> AHF, 

O, Oc 400, 0) 05 CRMy OS By tee, Oh Se Gs Se 


LHD, My Oy AHN, Sy By AHTIy Gy Cy AHN, Cy Jy 1H, 
QO, Oy 1HT, A, 


Oy 1HG, Qy fy, 1HE, fn, dy 1HR, Ny = 15, 2 9 dy 8, 


$5 By 2; 

LH, Oy Oy 1KG,y Uy Qo, LHI, 0, Oy, 1HC, f, Vy 1Hf, 
Oy Oy AHL, OD, 

= BBs AW « Ue Te PRPs Oy By 1865 By Be He ty 4; 


THF, |, ODO, 1HA, Ge Oy PREs Dy Se DThks Dy 85 LHES 
Cy LHL, fy = 25, 1H 9 Dy ", 1HS, Ny n, 1HU, Oy Cy, 


LHR, Oy M AKC, Cy Dy AKU, Cy Vy AHTy Sy Vy 1HT, 
0, By, LMM, f, 
Oy LHEs 2.7 


INTFRNAL STATEMENTS (N = 2) 0 


a ze / Ey 1H, Q, Ny 1HS, D5 Ly 1HS, dy Ty 
LHI, 0, Gy 1HE, 

O, O59 AHN, EZy 2ig LHS, Cy Ny AHA, Oy Ny LHS, JQ, 
Cy 1HKy My, Ty 

ANS, M15 Dy APF, By Ny HAY 0) By LMC, By Oy LHF, 
4, om) 1HI!, M, 

Oy LHFy Oy My LHF, My Ay LHEy My Oy AHhy Jy 35 
1474 Oy Oy, 1H, 

Oy Vy AKCy Bly Dy LHA,y Uy Sy AHUy By Dy 1HTy 15 iy 
LHl,y Ly 2%, 

THF y Oy Jy TEAy Cy My AHLy Cy Oy AHLy 225 Gy AbCy 
My Gy 1HMy Ny 

by 1HMy Ty Cy 1HOy Oy By 14M, = By Ly THs Sy My 
LHE, Oy Py 
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SANs wpe elie me = 


DADMORA DAN 


bs 
Z. 
¢ 
2 
¢ 
2 
al 
4 
¢ 
5 
¥ 
6 
¢ 
7 
¢ 
Qa 


D'F OWA DPW FANMDMTNM OHNE HN DH 


Le 


1HL, 
Oy 
0, 
1HA, 1, 
1HT, 
0, 
Oy 
THE, 
Oy 


Cy, 


0» 


Uy 
Ny 


NATA 
4HUl, A, 
1H3, 
LHM, f, 

Ny 


Dy Ati, Vy Py 


LHT, ‘1, 
fry Ny 
LHV, 
THA, 
Oy 


Cy 
fy 


1HF ,y 
by Oy 
LHF, OM, 
JH“, 


Ny 


MATA 
a 
1H(, 
Uy 
Oe Uy 
tHty 0, 
1H, 
My 7, 
Py 


My 


My 
th um 
L4H, 
LHS, 
Cy 
%, Vs 
1HT, Uy 
LHN, 
Uy 
29, 
Cby Uy 
259 
LHN, 


Cy 


by 


Gy 


fy 


Oy f, 
1HI, 
1HN, 


uy 
1HD, 
1HE, 


", Dy 


Cy Vy IhLy My 
tHE, 
NM, 1H, 


AG5 Sy DPEs 85 
1H™, 


fig y 
HL, 
LH, 


1HFEy %y Oy LHXy Gy Oy AHNy Oy Oy AHTs 
Ny 
Gy, Cy LHU,y Dy Gy LHE, 24, 23, AHO, Oy 2, 


Ny 

Q, 
ty, 
Cy Oy 
C, iH, 
1HS, fy, 


LHA, 16) 6, 1HE, Oy Oy LHC, Oy Ny 1tC,y 


1H(, 325 By LHIy y My 1HMy My Oy 


Cy LHI, 0 7 
Ee Cy 


Cy 


1HO; dy 0 1HN, 79 0; 1HO, bias 18, 


Oy 
1kly 
5, 1H, 


1HOy 
Wb, 


0, 1HE, 10, 73, 1Hey Gy 1h, 


Oy Gs 2HDg Oy Oy AHF). Dy fe AHig S35. 


LHT,y Vy Uy THLy My Oy LHE,y 28, Oy 


0, IHF, 
HY, 25, 
€> £5 


{15: 1HS5 05 05 THU, Os 0, LHI Cy 


Ny 1HF, 0, Ny 1HN, ui Ty 1H, 


Oy 
LS, Cy 
(>, 1H, 
AHA, 1, 
O, 
b J 


1HX%, My Oy LHT, %y Oy LHEs Cy Oy 


Cy 1HL, By ZTy LHFy My Ay AHA, Ty Dy 


6, FRA; Oy 0) RHT, 0% 5° PHS) 27 7 


Tr ¢ by DG, 
2M, Oy 


, Oy THA, Ny O, LHT y dy Oy 


2, AHF, Sy Uy THC, 2145 Dy AHN, 


Ihe, 
ny 


Oy C, 1HG, Uy Oy 1HE, 0, Cy LH", 1i, 7y 


1G, 
12, 

Ly Cy 
Oy IHI, 
LHS. {y fy 
My Ny 
» ty 


Ge He SE, Oy Sy SC, Bx Be Shy 


1H, Uy 1HM, My Oy 1HEy Vy Oy 


Uy 


HT 5 U3, 2% LHe, Oy Gs LHAs 


f 
“9 


1Hey 42, A1y 1h %y %y Cy Jy AHS, 


17,5 


LHS, 
ry 
+ My 


Cy Ny LHI» Uy By LHN, Cy Oy LEN, Abs Oy 


TK*, 2, Oy, tell, fy un LH, Ny, oy, LtC, 


LH, 

ius 
itl, 

Ny 


THO) Dy Oy They Cy Sy THAs Cy 25 LHL = 


1HLy 
Shy Ny 


17, Gy AHT, Cy Dy AHUy Uy Cy LHR, 1, 


AAaAANgANYN AMANDA aAaAgD | o 


aan 


wn 


eee 


LHW, yp My ART Sy Dy LEH, Gy Cy AHOy F9y Uy AHS, 
Uy Jy 1LHT, y 

Os AH Oa: Oe See Cheesy WETS Ba Ba Ate Be Ws 
qHe, OSs 
NATA TE # C, LHe, dy bed 156, {H 9 ty 4y LRU, Cy 
Cy AHS, Ms, Dy 

LHF y fy Uy til, i775 f, TH, 0, Ny SHE, Dy Vs itl, 
Os Ny LH, Oy 

Ms LHEs De Oe 4H, 2h Z 
rete IMC / 4H, 1KM, LHF, AHL, 4H1y 1HC, LHI, 147 
/ 
PAIL OLE 7 PRO, LHV, THE, 2H sy AHLs LHA, HY, AIF ( 
/ 
hath WNEXT / 45 79 4 
ISTART = JECIMT 
NSOYXT = NKREXT (ON) 
60 TO 32 
MEYT = NEXT 6 4 

AOVENCE TO TEE MEXT- CHRFACTEF OF JSTATE 

JTFOINT = JFCINT #+ { 
LF CIPQINT eGle ThHAFS) GU TN 11 
IF CUSTATECIFCINT) NE. TALAKK) GO TO G 


SUPPSESS AKY PLANKS 


CALL SHIFTL CTELANK, JO TINT, TCHAES, LSTATEC I)? 
GO TN 2 


NOW CHECK FOR A CHAPACTFR “MATCH, JF ALREATY 
PEST, USE THE 
DEFAULT TERRINATION, ICENT = 456 


TF (LSTATECIECTNG) olLTe IAC? yNFXT)) GA TO 114 
TF (CLSTATECIPCINT) .GT. IN (2yNEXT)) GO TO € 


MATCH FCUNC. SFOK THF REXT STFS, 
- SEFKCH FOR FOSSTSLE FURTHER ACTION, 
0 CONTINUF, 
+ Dawe, 
Ee (IACZ,NLXT)) 7g dy 18 


JUMP TC THE NEXT LEVELe CHEPK CHARACTER. UO NOT 
AOVANTE 
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aaan aaa aan aan aaa AanaIan AOOoO4AhM 


aan 


in 


11 


12 


TPOTNT, : 


1 CCNF,. 
- OF + JURF TO THIS LECATICN TN JA(T,ZNEXT) + 
NEXT. 


TF (TACL,NEXT) eFQ. €) GG TM 11 
NEXT = ITA(1, wExXt) + REXT 
GC TO YG 
TF NEGATIVE, THEXE MAY FE ACOITTONAL CHARACTERS, 
IF NOV, TAKE 
THIS WALUF CF TECZ,NEXT). 
ICENT = = JAC, NFXT) 
AOVAKO® 10 TRF MEXT CHAFACTEF OF ISTATE. 
IFOTNT = TECINT + 1 
IF (IPOTNT G7. ICH*RS) PETE 
IF (LSTATECIFCINI) eNFe IGLANK) GO TO Q 
SUPFRESy AMY PLANKS, 
CALL SHIFTL (TBLANK,y IPUINT, TCHARS, LSTATE(1)) 
GU T0 R 
NEXT = WEXT # 4 
NOW CRECK FCF A CHARALTE® MATCH, 


IF (LSTATECIFCINTY eFC. TAC2,NEXTI) CO TO 5 
RETURN 


TF FOSITIVt, WE ARE "ONE. 


INENT = TA(7, NEXT) 
IFOINT = IFCIAT + 14 
RETURN 


THE STATEMENT IS APPARFATLY A PEPLACEMENT 
STATEMERT. 


IFOTNT ae 
IPENT =, = 4E 
IF (N oGT. 1) GC TO 15 


CHECK FOF CVFPLAY STATEPENT 


KC = ITFCINT 
eo 14 J = dy A 
Lc = LSTATE (KC) 
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aan 


aan 


aAaNaanN 


Cees ate tare et * 


“oo hen han tl ena Ae oe 


IF (LC aNEe IELANK) GO YO 13 


SKIP BLANKS 


KC = ke #+t 
GO TO 12 


13 IF (LC .NE. CLEC J)) RETUFN 


IF WE PEACH KER&y WE ARE MATCHING, 


KC = KO 444 
14 CONTINUF 


IF THE LOOF IS COMPLETFC, 
$ QVERLAY. 
ASSIGA IT TYFt 14.6 
IOFNT = 44 


PETURN 


THE STATEMENT TS AN 


CHECK FCR IMFLICTY STATEMENT, 


15 «C = JFCINI 
no 18 J = ty 6 

16 Lc = LSTATE (KC) 
IF (LC eNEe JELANK) GO TO 17 
KC m= KC + 1 
60 TO 16 

17 IF (LC eh&o IMF CID) FETURN 
KC = KC + 4 

18 CONTINUE 


IF THF LONE IS COMPLETST, 
$ STATEMEAT 
BSSIGN IT TYF: Ube 


ICENT = GE 
1FOTNT 2 9 
PETYICN 

END 
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THIS TS AN IMPLICIT 


aAaaanonr 


> ey C2 


QD AL AWBNH OMG 


YN O9N 9R 4 


nn oY 9 


SU2ROUTTNE KF (NSTN) 


THTS POUTINE CATALOGS TKE FOPMAT STATEMENT 
tUMBERS IN THE 
OPNFR CFE TKEIR USE IN TKE FOUTTNE. 


CCYMOW ZALLZ TCHARS, ISOLLS8&, TEFRKOR, INNUNM (25 
51), IPOINT, 

IP®OG, TSAUt, ITYPE, T9ICCS, KFOPK (179), KFOLT (2, 
109), KSKU* 

(25 GADD, LCAFN (HM), LCOKASS, LFOUT (1900), LSTATE 
(2099), 

LANES, NAME (4), NCATE S, NEXT, REFORM, N= OUT, 
NKFURM, NCLTS, 

MPUSH, NSAUPL, NSTATN, NLPRER (7), WUMLN, NUMK, 
NVALUE, STFIRG 

(7, 149%) 
€CMMON CTATBS Cy FNOy Ky TELEMK, TEOF, INTEGER 
(19), TEUNCT 

(14), ICCUN? (2, 4&)y) LUIN, LUMUT, LUSTATE, MFOLT, 
MLOHPPS, 

MI FAGh, tNSTATF, NCAFPL, AeA X, NUS MAX, FRUSPAM (7), 
RETURN, 

ej, Al, Xx 
IF (NFORMP eLFe %) GO TD 2 


SEE TF THIS NUPEFR TS ALFEACY CATALOGED. 


Poa J = 1, NFOPMN 
IF (KFCTR (J) EM. NTN) RETURN 
CONTINUF 


CATALEG AT TEE SND OF TEE LPREY, 


NEUE MN = RFUTMR @ 4 

1F CRECEMN eGT. KNEOXuMY GH TN 2 
KFORMONFO OMA) = NEQM 

RFTUON 

PYINT 410%, ARECEH, CLSTATFOT), 1l=1, LCHARS) 
PETUEN 


FORYET (¢ FATRE WEP BY KEGEM TS FULLe THE 4UMBER CF 
FORMAT STAT* 

PEMHENTS CATAICGEN EXPEECEP *9 15, * IM STATEMENT? 
4 of (29%, 

LO°TAL) } 


EAR 


53 


ite issuers ee 


LOGICALFUNFTICH KLIST CIF, KETH) 


THIS FUNCTICN FECORDS TRE VALUS AFD PNSITICNK CF 
THE IKTERNAL 
STATEMENT BUMBEFS, 


ANAAAN 
a 


CCKMON SPLLS FOHAPS, TOOLL ER, ITEFROR, INNUM (2, 
59), IPO0IN, 

IPRAG, TSNUb, ITYFE, T9IE99, KECT™S (179), KFGUT (3, 
100), KStUM 

(2, GOGI, LEAFED COC), LEFARS, LECUT (1890), LSTATE 
(2990), 

LWOROS, NAME (G09 NCAPOS, MFXT, NEUF dy NECUT, 
NKFORM, NOCUTS, 

WPUSH,. MSNUMC, NSLATHR, HUNFES (7), NUIT, NUMK, 
NVALUE, STEIKC 

(2, 100) 
CCMMON /SERTAS Cy “NOyg Hy TELANK, IEUF, LAT ECES 


Vt AW AN 29R A 


$ (iP), TRURCT 
f (11), ICCUNT (25 &)y LUIN, LUOUT, LUSTSTE, “FOLT, 
© MLOHARS, 
2 MNEAKM, MNSTETE, NCARG, AMAX, RIMAX, PROGOAG (7), 
¢ FETURN, 
$ STAR, x 
KLIST = eFFALSEe 
IF (NUMIN eGEe NUMMOX 2 TR. MUMIN oLTe &§) GU TN 1 
NUMI WN = NLFIN + 1 


TNNUM(1, NUMIN) = IP 
INMUMO2], NUPRIN) = NSTN 


KLIST = eo ThUFe 
RETURN 

21 FRINT 1400, KRUPMAY, (LETATECT), T=1, LCASRS) 
RETURN 


100 FCFMAT ( *OTHF AFRAY INNLB JS FULLe fFHE NUASEF CF 
INTEPNAL ST* 

*ATEMERT NUMPEPS EXCESCED *5 T5y * ON STATEMENT? 
4 Ts (29X, 

103A1) ) 


nN AY A 


END 
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LEGIGFLEURCTICH KO (NETN) 


THIS FUNCTITCH CATALOSS THe LOCATION OF THE FORMAT 
STATEMENT 
NUMQGEES TR TRE ALKAY KECIN. 


COMMON SALLZ IEHAES, TCCLLAF, IFRPFOF, TNRUM (2, 
5°), IENINT, 

IPKNG, ISNUP, TTYFE, T9999, KFECRM (1069), KFOUT (7, 
199), KSRUM 

(23 410)5 LCKRE (890), LCRAKS, LFOUT (1996), LSTATE 
Cenery, 

LHORUS, MAME (4), NCATOS, NEXT, NFCPUN, KECUT, 
NKFOTH, PULTS, 

NPUSH,y NSKUMC, NSTATN, NUMBER (7), NUATINy KUMK, 
NVALUE, STRIAC 

(2, 1C6) 
COMMON STATAS Cy ENDy Hy ISLANK, ITFOF, IATEGSP 
(19), TEUNCT 

(11), ICCUNT (2, 4), LUIN, LUOUT, LUSTATE, “FOLT, 
MLCHARS, 

MNEQEM, YNSTATE, YCAR J, AMEX, NIPMAX, FROGTAM (7)y 
RETUON, 

Si be, xX 
Ke = eFALSE. 
IF (CHFONIT LE’ 12) GN TN 2 


SEF IF TRIS HURREF YS ALFEANDY CATALOGED. 


po 1 J = 1, NFOUT 
IF (KFOCUT(1,5) e&De NSIND NETUFN 
CONTINUF 


CATALOG AT "KE FNO OF THE APRAY, 


NFOUT = NFOCUT #+ 41 

IF (NFOUT .GT%. PNFOTM) £0 TN 2 

KFOUT(1, NFOUT) = NETN 

KFOUT(2, NFOUT) = NEXT 

KFOUT( 7%, NFOUT) = ICHARS 

NEYT = NEXT # CICHARS # 9) 7 10 

TF (NEXT ¢GTe MFCUT) GO TF & 

KO = eTRUES 

FETURN 

PRIN( 100, MAFCRM, (LSTATEC I), I=1, LCHARS) 
RETUPN 

FRINT 41045 MFCLT, (LSTATE C(I)» IT=1, LCHARS) 
NEXT = KFCLTT2, NEOUT) 

NF OUT = NFCUT - 1 


NA A Nor 


RETURN 


FORMAT ( *0 TRE ARRAY KFCUT IS FULLe THE NUMBEF 
OF FORMAT STA* 

*TEMENT NLMEEFS STORED IN THE ARRAY KSNUM 
EXCEcOFN*, I5,y 

* AT STATEMERT* 4 / (20x, 10G0AL) 2 
FORMAT ( *0 THE APKAY LFCUT TS FULL. THE NUMBEF 
CF FORMAT STA* 

*TEMENT WORDS EXCEEDEO*, T5y * ON STATEMENT* / 
(20%, 10041) 

) 


END 


SUBROUTINE KU (MN) 
COMMON /SNLIST/Z NS, REF (600, 3) 
INTE GEE. REF 


STORES RFEFEFENCEL STATEMENT LABELS IN OFDER 
ENCCURTEFFO. 


IF (NS et Te 4CU? GO TO 1 
STOFAG® TAFLE FULL 


PRINT *,5 “NG FCCH TO STOKE STATEMENT LAZ3FL ", N 
RETUSN 


ATTEMET STCE ACE 
TS t ELPEACY STOrEN? 


CALL SCANFEF (Ny MAg NL, NED 
IF (NA eGo 99 FFTURN 


N IS NOT TW FEF, STAPF IT, 


ne = No 4 4 
KFFONS, 1) = N 

IF (NS .ER. PETURN 
IF (NL el Fe GO) T.0 2 
PFFC(ML, 2) 

bETUON 


CER CMP, 3) 
FETORS 


ENT? Y KSET 


Ww 6 FT 
FEF(T, J) 
COANTIMUF 

ae = 
BFTLUEN 
FR 


FUNCTICN NUMFS (JTSTAR1g JSTOF, LTST) 


3 

C THIS FUNCTILN EYAMINES THE STATNG "LIST! 

Cc ¢ EFGIAKIAG AY LSTALT 

€ LOUKING FOR A MUMFRIOAL VELUF WHICH TF FOLND IS 
Cc $ FETURAES 49ND 

C THE LOUSESTICK SUEFPESSEN. CTHFPAISS, A Z=E"0 IS 
C = FTV UPREL. 

C 


CCKMON JSALLZ ICHEFS, TROLLAF, TERROR, INKUY (2, 
E%), IFOINT, 

JPSNG, ISNUM, ITYFE, TSSSG, KFCT™F (191), KFOUT (3, 
199), KSHUM 

(25 4099, LCATF (C&O, LCKATS, LECUT (1019), LSTATE 
(27 PO), 

LHWOPNS, NAME (4), NCATLS, NEXT, NFOPEN, KE CUT, 
NKFORM, NCLTS, 

HPUSH, NSAURC, NSTATN, NUNS FE (7); NU4IN, NUK, 
HVALUE, STEIRG 

(2, 19") 
FOMMAN STATAS Cy ENCy Ky TELANK, JEOF, INTECHE | 
(10), TeUNeT | 


NAL AW ANDAR 4 


(141), ISCUNT (25 GV, LUI, LUNUT, LUSTA TF, MFULT, 
MLOHARS, 
MNFURM, MNSTATE, NCARG, KRMAX, NUPMAX, PROGRAM (7), 
RETURN, 
STAR, ¥ | 
OIMENSION LIST (4) 
Is ISTAST 
NUMBS Q 
1 $F CIS 6G6%s« ISTOP) RETUTN 
IF (LISTCIS) eE&Ce TOLANK) CO TT G 


a 9N FR F 


oo 2 § 2 45 44 
IF QLISTcTS) .F0. ENT SGERITH) GO TOS 
2 COWwTINte 
(| RETURN 


3  WKUMAS = NLUMES * 19 # T= 4 | 
& CALL SHIFTL (IPLANK, ISy TETOF, LIST ALD) 
ICHAFS = ICHAES = 4 
TF (CIOOLLAR oT. C) IOMLLAR = IOMLLAF = 1 
60 79 4 
FNO 
' 
I 
; 


OF aw an ae 4 


AAN RIA 


SUSFOUTING OLTFUT (LIST) 


THIS KOUTINE WEITES THE WORK FILE RECOTL FOL: FACH 
FOUTIAE 
STATEMERT, 


CQreMON SALES JCOHARS, TOOLLEP, IFPRCR, INNUM (2, 
50), IFOINT, 

TFHOG, ISNHUt, ITYPE, TS999, KFCP 4 (199), KFOUT (2, 
159%), KSNUM 

(25 GOOD, LOAZD (8A)V, LORF OS, LFGUT (1000), LSTATE 
(2091), 

LWORES, NAME (4), NCA®LS, NEXT, PFORMN, NF OUT, 
NKFURFM, BRCLTS, 

NPUSH, WSNUPC, NSTATH, KRUMEFE (7) 5 NUMINy NUMKy 
MVALUE, STFING 

(2, 100) 
COMMON SOATRS Cy, END, Hy IALANK, IfOF, IATEGER 
(10), TEUNCT 

(1i)5 TECUNT (25 &Yy LUTN,y LUOUT, LUSTATE, “FOLT, 
MLCHARS, 

MNFEARM, MNETETE, MCARM, AE AX, NUMMAX, FRUGRAN (7),5 
FETURN, 

STAD, X 
NIMENSTON LIST (1%, LOUT (200) 

NO =f I = 1, 10¢ 

LouTr (Ty) = IFLAKK 

COMTINUF 

OO 2205 

Ti 


1, 200, 1” 
co e Ti =< 9 

T2 PINQGTL + 9S, ICHAFS) 

Nc le * 2 = 7 

IF (ne eLEe C) GO TO 2 

FNCONE (RC, 10Gf, LOUT {IT)) (LIST (I), i=J1, 
T2) 

CONTINUE 
LkORUS = (IJCKAFS ¢#¢ 9) 7 if 
WEITE (LUSTATFEF) ITVYFE,tL WCROIS, TCHAFS, ISNUM, 
(LOUT(1), TH1y, 

LWORDS), NUMIN, € CINNUM(T, J)y T=1y 205 J=ly 
NUMIN) 
NOUTS = NCUTS + 1 
PETURN 


FOFMAT ( 1f 041 ) 


END 
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SUBROUTINE QCIGIT (Iy ILEFT, IMINy LIST, N) 


EVALUATE THE STRING OF INTEGFRS BEGINNING AT 
TLEFT 
AND FROCEECING LEFTWARN. 


N IS THE VALUE OF THE STPING OF INTFGERS. 
I IS THE POSITION IMMECIATELY LFFT OF THE 
INTEGERS. 


COMMON /ODATAS Cy SND Hy ISLANK, TFOF, INTEGER 


(199, IFUNCT 

(14), ICOUNT (25 4), LUIN, LUOUT, LUSTATE, MFOLT, 
MLCHARS, 

MNFORM, MNSTATE, NCARG, AMAX, NUMMAX, FROGRAM (7), 
REITUPN, 

STAR, xX 
DIMENSION LIST ¢1) 
N = «= J 
3 = NCNRCIBLANK, IMIN, ILFFT - 1, LIST) 


IF (IT elte IMIt) PETURN 


FIRST CiGrT 


No 1 J = 1, 10 
IF (LIST(I) eEQe INTFGFPIU)) GE TO 2 
CONTINUE 


Te THF LOOF TS COMPLETEL, THEFE IS NO DISIT. 


FETUPN 
tT 


IF ONE CIGIT TES FOUND, LOOK FO® MORE. 


" =J-14 
IF (I ols IMTK) RETURN 


SECONG CIGIT 


GO sd = J, 17 
IF (LIET(I) e&Ve INT GER (J)) GO TO & 
CONTINUES 

FETUTN 

I eie 4 

N SN 4 718 © 5 & 29 


JF (7 olFe THI?) &ETFURD 


FRIREG CLeLT 


60 


nn 5 J = 41, 10 
IF (LIST(1) e€Oe INTEGERCJ)) GO TO 6 
CONTINUE 

FKETUEN 

1F () eLEe 1) FETUFN 

N N + inf * (J = 1) 

I T --3 

PETURN 

ENG 


1 
2 


4 
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SUBROUTINE SEACOUT 
HIS ROUTINE TAHEESTS THE CChHYON SFECINGS, 


CCMMON ALLS ICHAKS, TOOLLAR, IE" FOR, IMNIM (2, 
50), IPCINT, 

PROG, ITSNLM,y ITYPE, 319999, KFORM (1010), KFOUT (2, 
1°90), KSRUM 

(2, GORY, LCERD (CAND, LORARS, LFCUL (1000), LSTATE 
C2009), 

LHOROS, NAME (4), NCATCSE, NEXT, NECKMN, AE CUT, 
NKFO PM, MUUTS, 

NPUSH, NSNUPMC, NSTATN, NUMBFiIR (70, NUTTIN, NUMK, 
NVALUP, STRING 

(2, 100) 
COMMON /CATAS Cy END, Hy TSLANK, TSOP, TAT EGE 
(10), TPURCT 

(11), ICCUNT (2, 4%), LUIN, LUOUT, LUSTATE, MFOLT, 
MLCHAPS, 

MNFOFM, MNSTATE, NCARM, NMAX, NIMMAX, PROGSTAM (7), 
RETURN, 

STAR, X 
OIME NSIOK CFS) (Cho 
INTEGEF H 
FQUIVALENCE (LIST (4), LSTATE (1)) 


DPUNGE a. 2 s 
/ ’ ( 


It = IFCINT 
& IS THE FOSITIGN OF THE WEXT 


T4 = 
IFLAG = 0 
IF CIT eGTe ICKARS) FETURN 

no 3 J ene ace He 

IF CLISTCIID «FG. INT GERC))) 

CONTINUE 


= 1990 


IF (LTISTCTT) te «TPUNCT (19) CO 
xe CUISPCrL) TPUNCT (2)) 
TF (LISTC(IT) IPUNCY(3)) 
IF CLISTCIID IPUNCT (59) 


IF (LISTCIT) TRPUNCT (9)) 


COVST CLE) weGse IFPeUNCT C20) ) GO TO29: x 
TA of 


J- 1. 
Bee 
(TT eGte JCRATS) FETIIAN 
CLLEST (TI) et Ge TAILANK) GO TO 6 
pO 2 J = fie 40 
TRF CENTS GET) oENs JNIEGFROCI)) GO TO 8 
CONTINUE 
TF CUIST CTT) «of Ee HI GO TO 4 
TT TT +nNe* 1 
GOT & 
Ml Uk: =e SN 19 
GO TN 6 
NAL 4 
TF CLT YES VEGe AE) 
ee 4 eNhOie GETYSE seO. 162) GO TG £1 


DATA STATEMERT. PUY A SLANK SEFOFF EACH 7, 3UT NCT 
AFTER GLESTING 7's 
EF (LYST CIT 41) eNEs FOUNCT (CZ) ANG. LISTCILAL) oNE. 
$ T2LARK) 
IF ( eNOT. (LIST(II¢19 eNEw TPUNCT (2) JANO. LIST (II+ 
7 1) NE 
1 T@LANK)) GO TC 10 


CALL INSERT CIELANK, II + 1y LOHAFS, LIST (1), 1) 
NEL = 2 
ENS IF 
if CONT TNUE 
60 T9 45 
ERO TF 
11 CONTINUE 


LOOK FOR THF EXPONFHTTATION OPFRATOR (**) IN 
FEPLACEMENT 

STATEMENTS. PUT A SPACE BEFORE THE FIRST AND 
AFTER THE 

SFCOND, NOKF PETHEENS 


IF (ITYEFE eNEe 45) GO TO 12 

IF (LISTC(II¢1) eN&. IPUNCT(5)) GO TO 14 

CSLL INSERT (TSLANK, IIT + 25 LCHAFS, LIST (4), 1) 
CALL INSERT (TELANKy TIy LCHAFSsy LIST(1), 1) 

TH =It+%& 

T4 = Iu + 2 

GO TO 21 


. 


Se 


aaIana 


YAM 


aanon 


12 


13 
14 


£5 


14 


17 


18 


19 


00 NOT PUT SFACE AFTER ASTERISK IN LIST = DIRECTEC I0 


STATEMENTS (ITYFE = 25, 


CONT INUE 
00 13 J = 2£, 28 
IF (J eEQe ITYPFE) GO TO 15 
CONTINUE 
CCNT TNUE 
NAL = 2 
CALL INSEPT (CIELANKy IT + dy LOHARS, LIST(1), 
CALL INSERT (TELANK, TT, LCHERS, LIST(1),5 1) 
Ti = II #¢ NOL + 1 
I4 = I& #¢ NAL 
GO 10 21 
INSFFT RLANK AFTER COMMA, 
EXCEPT IN IF STATEMENTS CITYFE = 21)6 
IF CITYVPE sEQe cl¥ Go Te 20 
CALL INSFET (IELANK, IT # 4, LOHASS, LIST (1), 
II SE). t 2 
Iu SG) 4 4 
GO TN 21 
IF CYSG «GTs 8} Ge’ To té 
IG = MATCH(J1, TCHAFS, LIST(1)) 
6c T9 19 


TF CET sk Ve 24) GO TO 2A 


14 = «= 7060 
INSTPT BLANK AFFCRE (Ce 


IF (TFLAG .t% 1) €0 


DO NOT PUT SPALES AROUND FARENTHFESES IN 


STATEMENTS, 


TA 20 


IF CITYPFE «EN. 45) GO TN Z0 


CALL INSEFT (IELANK, 
IT zi) 4 2 
Ja 4 j 


we 
© 
“oe 


Il, 


LOHAFS, 


265 275 28%. 


LTST (1), 


1) 


1) 


1) 


XE PLACEMENT 


FUNCTION SFFESS (Ty ISTOF, LIST) 


THIS FCUTINKE SUPPFESSES ALL PLANKS. 


OTMENSTOR LIST (4) 

CATR TS 7 in 

SFRESS = 0.0 

IF (T «GT. ISTOF) CN TN 2 
IF (LISTC(T) eSFe 18) RETURN 


SUPFRESS APY STRAY PLANKS, 


CALL SHTFiL (1E, ly TSTOF, LIST(41)) 
co 4 

SPRESS 1.0 

KETUPN 

ae 


eee 


NADND 


nao 


NH tf AW AM AK 49 


”™ AN ArR'SD 


A 


SUBFOUTING STCRE CITYFF) 


THIS POUTINE APCS CIMCNSTON AND TYPED VarIAaLes 
OF TYFf JTYFE 
TO THE AFT AY SVETNG. 


COMMON ALLA ICHATS, FTECLLAT, JFFRCR, INKUM (2, 
59), IFOIKT, 

IFeANG, ISNUM, ITYPE, I9S999_, KFOPM C109), KFOUT (2, 
10%), KSKUM 


(25 4PO), COAFD (3%), LORATS, LECUT (LONG), LSTATE 


(2001), 

LWANPOS, NAME (G¥y NCAP DS, NEXT, FOR ly NE OUT, 
NKFORM, NCLTS,y 

MPUIDSH, MSRURC, WSTATR, NLX OEP (7), NUMTivyg NUS Ky 
NVALUE, STFIKC 

(2, 19°) 
COMMON STATAS Cy ENDy Hy ISLANK, IFOF, INTEGER 
(410), TEUNCT 

(141)5 ICCUNT (25 4)Vy LUTRy LUOUT, LUSTATE, “MFOLT, 
MLCHAPS g 

MWFOEM, MASTATE, NOAPF, RYAX, RUMMAX, PROGRA4 (7), 
RETURN, 

STAR s x 
DIMENSION TTESTN (7)5 LTESTNL (7%) y LIST (1) 
NEWO?D (2) 
TNTEGET STPING 
FQUIVALERCE CIT, TRPOINT), (TSTOP, ICHAAS), (LIST (1) 


y LSTATE(1)) 
RK ANGE OF TEE LOCATIONS AL THEY N, 

N = 0 

OO +1 = dy JTIYPE 

N = K + NUMBER (T) 

CONTINUE 
Ni = N = MUMSERCITYFF, + 1 
13 = ISCANLCIFUNTSY (2), II, ISTOP, LIST (1)) 
1S = ISCANL CTFUNCT (2), TI, ISTOF, LIST(1)) = 
1 


IF Cs = IS = DY Sy 4s 5 
CALL INSEFT (TELENKy IZ, LOHAPS, LTSI(1), 1) 


TS = MATCH(I3 + ty ISTOF, LIST(1)) 
GO TN 5 

Is = ISTCF 

LENGTH = M7nC(26, IS - IJ + 13 

IF (LENGTH oLF. GO) RETUFR 

NEWOSO(1) = ITELANK 

KEWORD(2) = ITELANK 


 eapinghaT nash. sae 


ee ee es 


ENCOTE (LERGTH, J00, NFWOFF (1)) (LIST (K), K=II, 
© TS) 

DECONe (7, ACF, MEWCRE (19) ITESTN 

TF (NW etT.e Ni) GO TO 7 


SEE WHOTHER THIS VARTASLE TS AN KEAUY PRESENT IN 
CTRING, 
IF SO, ChKOF IT. 


DIAAaAN 
9 


AY 6 J = Rig N 
IF (NEWFEO (1) CE Ce STPING(1,45)) GO TO 16 
6 CONTINUE 


PUSH THE STRING NOW, 


ann 


qT OK = NLRK = NUMK + 4 
IF (NU“K eLEe KKAX) GO TO PR 
PRINT 1014, NEKCFO 


RETURN 
® IF (« «lf. N41) GO TO 19 
00 9 I Seite, < 
STRING(T, K) = STEING(T, © © 4) 
c CONTINUE 
K =K «4 
TF CK «6Te KR) CO TO 8 
C 
c INSERT THE KEW VARIASLE OF FINITION. 
C 
40 KN *=N aH * 2 
NUMPER(JTYFE) = NURRERCJTYFE) # 4 
06 44 7 = 45 2 i 
STRING(T, N) = NEWOPD(I) ' 
11 CONTINUF : 
42 IF (NN al€. N41) GO TO 16 ; 
| NN = NN <4 
DFCONE (7, 4100, STRING (1) NN) ITESTNA 
4 LENGTH = = MIKM(LENGTHy 7) 
00 13 J. = 14) LENGTH 


IF (ITESTNI (I) «EQ. IBLANK) GN TN 16 
IF (ITESTN(T) e€Qe IBLAKK) GO TO 14 
TF (ITESTNCT) = ITESTNI(T)) 14, 4129 16 
13 CONTINUF 
14 CO 45 2 = Sy 2 
STPING(I,) NN + 4) = STRIAG(Iy NN) 
STPING(T, NK) = NEWORD(T) 
15 CONTINUE 


GO TO 12 
{ 16 II = IS ¢ 2 

IF (TI elEe ISIOCP) GO TO 2 

RETURN 


Pe ee 


d 67 


C 


100 FORMAT (¢ 100F1 ) 
101 FORAAT (€ *OTHE ARRAY STFING IS FULL. THE 


$ VARIABLES FEGIAKNING * 
1 *WITH *, 2610, * WERE CROPPED.* 


END 


aAaqaaIn 


NAL IGN ANVAr « 


— 


TNTEGERFUNCTICKh TRANSF (T1, 12) 7 


TRIS FOUTINE TRANSFEFS THE PATA KFCORD FROM ICAFO 
TN I“TATES 


COMAON ALLS ICHPFES, YOOCLLAF, JFEROK, INNUM (2, 
5), TPOIN™, 

TP?NG, LSNUM, ITYFE, TS999, KFORM (100), KFOUT (2, 
410), KSPUM 

(25 SOP, LEAKED (80), LCRFEXS, LFOUT (1000), LSTATE 
CECNM), 

LWORTS, NAME (6), NCATES, NEXT, NFORMN, NTCUT, 
NKFORM, PCUTS, 

MOUSH, NSNUMC,) NSTATN, RUMBEF (7), NUMIN, NUMK, 
NVALUE, STRING 

(7, 19°C) 
COMMON SOUATAS Cy FMD, Hy TILAK, IFOF, INTEGER 
(19), ISUNCT 

(Lid, TECUNT (2, 4&4), LUTH, LUOQUT, LUSTATE, MFOLT, 
HLOHAPS, 

KYFOSM, MASTATE, NCARD, NMOX, KUMMAX, PROGFAM (7), 


FETIYON, 
STOR, xX 

TEAWSE = A 
no if = ity le 
IF (LOHAFS CE. MLCHSFS) GO *9 ? 
LCOHAS = {CHARS + 1 
LSTATE (CHADS) = LOAP HCD) 
roNT NUS 

Ge 79 2 

PLINT 10%, MLERALS, Lene 

T. ARISE! = 

{ CHARS = MUCHAS 

UOHAeS = ORES 

RET UMN 


FOFMAT ( #ALRE AFOAY PLSTATE® TS FULL. THE NWUMEES 
OF CRATE 

ce Te ThE CLFEENT STAT OMENT FXCFECED*, 15 7 # 
Tee ARP AY Cyere 

*FLOWEL Ch CRED, 4X, BUAL ) 


ae 
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rrr AEE EEE oe ’ es 
™ 
ep. “Os ea 
aay A oe | 


' nin 


— 


aanna 


aoODdsNANIAAaAAN 


DASH NAAN WES 


AtAN OR 


¢ 


OVFEL AV (CLEAN 47,0) 
FROG On WRITES 


THIS ROUTIAF CONTFOLS THE WRITING OF THE CUTOUT 
FYLE.e 


CCMMON SALLZ ICKPAPS, TOLLE R, IFRFUK, INNIY (2, 
59), TEOINT, 

IPHOG, ISNUM, *TYPE, TS9S9, KFORM €1209), KFOUT (7, 
199), KSATIM 

C25 GOP, LCARM (°C), LCHARS, LFOUT (1000), LSTATE 
(C2090), 

LWORNS, NAME (49, NCOANCS, NEXT, NFU, NOCUT, 
NKFOOM, PCLTS, 

NPUSHs NSNUMCy, KSTATN, NUMSEF (7) NUMIN, NUMK, 
NVALUE, STRIRE 

(25 1°90) 
CCMMON JOATAS Cy, END, Hy TStlANKy I° OF, DENT £GEF 
(1M), JEURCT 

(itd, TCCUN (2, 4)y LUIhy LUOU™, LUSTATE, MEOLT, 
MLCHARE, 

MNFOR Ms, MNSTPTE, SCAR INg NMA YW, ALIPMAX, POOGRAH (7), 
FETUPN, 

STAR, xX 
CCMMON /NUMFPTS HNRET 
CGMYAN SSNLTSTZ RKSy REF (400, 3) 
OIMENSIOK KCAFO (200), NFSTACK (20) 
INTE GEE Cy ENO, Hy FEF, FEVURN, STAR, Xx 
1¢393 
IFLAG 
NOLOTYS® 
NFUFLAG 
SEUSH 
NEFT 


a 


1 | | 
wooo Fn 


APRLY TEFF CONTAINS ALL FEFEPFNCEO STATEMENT 
LAFELS,. 
ARREFY KSNUM CONTAINS? 
POw 12 ALL CEFINFO STATEMENT LABFLS IN THE OFFER 
FNCOURTECE De 
POW 28 THFIE REPLACTHMERTS (Ly 25 Zeevede 
NSTATN IS THE LFNGTH OF KSNUM, 


COMPAFFE ROK 1 OF KSNUM TO PEF, CELETE ANY OT IN 
PCT. 


= 1 


I = 
1 IF (I «Ge NSTATN) 56079 G 


Call SCANREF CKSNUr (1, T), Ny NLy NR) 


70 


TF €8'Q «G*. 9) GU TO 3 
Or Li TE 


KSTATN = NSTATN - 1 
ua 2 J = J, NSTATN 
KSNUM (1, J) = KSMUM(4, J @ 1) 
CONTINUE 
T ae 
7 JT ¢ 
GO 79 4 
eSTaTN = i 
ro § £F 1, 4 
IF (NSTATN eLEe N2FT) GC TT 6 
MART = WOrFT + 100 
COHNTINUS 
C CNT INUE 
BFWINC LUSTETE 
IF (NOUTS »LF. 0) GO TO 3E 
FELD (LUSTATE) BTYPE, LWEEDS, Tl, ISNUMy (KCARD(T), 
I=i, 
LWORMS), NUMIN, ( CINNUM(T,) Jd TH1,y 2), J=ly 
RUMTN) 
JF (FOF (LUSTATE)) S34, @ 
wOUT 5S = CUTS - i 
on 9 I = 1, 1°60 
LSTATE(T) = IELANK 
CONT IMUF 
IF (NTYEF EQ. °) GC TO 2¢ 
TFLAG = 0 
TF CNTYPE o€Q. 46) GO TO 19 


1 
1 


IMPLICIT. CLIFUT BEFORE OTHER SPFCIFICATION 
ETATERERTS, 


IF (NTYPE CE. 15 eANDe ACLOTYFE ote 6) CALL OUTST 

NOLE TYP = NTYFE 

LOHAES * Tf 4 7 

IF (IC oGTe 41°F) GO TO 11 

EE €I® sls 0) GO TO 7 

DECUNDFE (IC, 100, KCARCD (1)) (LSTATE (I), I=8, 

LCHA 2S) 
eee 

60 T0 13 

II 

T1 

T2 MIAG(TL + 99, LOHAFS) 

Ice MINC(IC, 10%) 

IF (ICE wlLEe 7) GO TO 12 

DECONE (ICC, 19%, KCAROD CIT) (LSTATE (I), I=I1, 

12) 


1 
A 


aan 


0» co TO 12 


NCNR(TSLANKy LSTATE (1)) 


eNEe 


TKF CC LOXP TEFMINAL STATEMENT NUTEER, 


1@) GO TO 1§ 


ol Fe 


itd, 


C 
C 
t 
C 


aa) 


Cc 
C 
c 
c 


€ 
c 
c 


C 
C 
Cc 
Cc 


NESTACK (hFUSH) 


MIRQCLOYARS, 
(LSTATE(T), 


0 EQ 


LUCATE ISKUPF TK 
KSNUM (ey 


(KSKUN (19 J) 


LCOF IS CAMFLETEU, 
FO ZEF Cs 


~ 


THE 


REFLACF WITH 


TRIS LABEL 


NER STATEMENT NUMER, 


(LSTATE CT), 


of G06 


CHECK FOR TRE Eu 
huMerr, 


LANP TEFMIRATTON STSTERSNT 


= NEUSK 


(KEN (25 5) 


agaaNy 


WMANAANAADND 


oo ie wee) 


20 


21 


24 


as 


TF (NFSTACK(T) eFQe KSHUR(41,J)) GO TO 21 
CONTINUE 
GO ™n 23 


TF THTS IS ¢ TERMINATICH STATEMENT, REOUCE THE 
FUSK CCUNT 
AND THE STACK, 


MENE LAG NELFLAG ¢ 1 

NEU NEUSH = RPUFLAC 
MN 22 TF = JF, NEU 
WESTHCK(TI) = NESTACK CLT + 4) 
CONTINUE 

FF CNGU .GEe TT) GO TO 19 

IF (rvyHIt eLE. %) GN TO 3A 


INSE®T ALL FEVTS&O INTERNAL STATEMENT NUMBERS, 


KSNUM(1,J) JS THE OR TGTAAL STATEMENT NURS ER, 
KSNU“ (24d) TS THO NCW STRTEMPNT NUMEED, 
INNUM(A,NUMIN) ITS THE FOCSITION IN LSTATE OF THIS 
STATERERT 
MIMBcR, 
TNNU*(2,NUMIK) TS THE OFIGINAL STATEMENT NUMBER, 


FO 24 J = 4, PSTATN 
IF CINAUS (2, UMTND CEN. KSHUMN (1,59) GO TU 27E 
CONTINUE 
NO 25 J = 1) NFOPMN 
JF CINAUMC2shMUMIND £9. KFCFM( UY) GO TO 27 
CONTIVUS 
PRINT 167, IAALY (2,5 KUSTIDD 
CALL TNSFATR CINWUMO2, NUMIM) y INNUM(1, NUMTN) # 7, 
LCHAES, 
CE FATE (Ak, ©) 
6A TA 28 
CELL TNSE RP TN (KENUM (C2, FJ), TeNUR (1, NUMEIN) + 7, 
eCHh7S, 
ISTATE(A), %) 
69 TN ?Ff 


C®8tl INSFRTK (co # RAFT» TANUM (C1, RUMIE) + 7, LOHARS, 
LSTATE CLD, 
4) 


eas 
MUM = MUtIN © 4 
GO 7 ‘23 
PROCESS COPL ENT STATEMERTS, 


TE = BURPCIC, Tey 


73 | 


LCHA?S = If 
ICOUNT (4, 27) = JOOUNT(1, 3) + 1 


SKIF OOUSLF ELANK RITAFCS IN SUCCESSION, 


TF €TFLAG s€Q. 1 eANC,. TC ole 4) E60 TO 33 

IFLAMG =n 

JF CIC sbL&e 2) TRLEG = 4 

DECOUE (IS, 19, KCAPC (1)) (QSTATE “Jie Jets FH) 


IF (NOUT® EQ. C) GO TO %4 
IF (NTYFE ekGe 1) GO TO 32 

IF (NTYSE CFO, 21) CALL TESPECE 
TF (NTYSE EO. 18) CALL ALIGN 


C'UNSH TRE STeTeMENT AVER AS FEQUIFEC, 


IF (NPUSH oLFe [) GO TO 22 
MANY = MIKO(2 " NFUSK, if) 
NN %4 i = 1, MANY 
CALL SHTFTF (TELANK, %) LCHAFS, LSTATE(1)) 
CONTINUE 
CALL SUNCHIT (hTYFE) 
ISNU™ 
NEUSHA 
rEUFLAG 
YE (NOUTS 167. 0) CO Ta 7 
CALL PUNCHIT OFTYPE) 
po 35 J ty LCHARS 
USTATECT) = LELERK 
CONTINUS 
CALL OQUTFTY 
CALL THSFEFT (FRC, 49 LOHARS, LETATH (4), 2) 
CALL THSEET (TELA NK, 1y LOKATS, LSTATE(1), 7) 
CALL PUNCHTT (4169) 
REWIND LUSTATE 
T°990 =n 


FUSH = MPUFLAC 


nouou 
a2 2 


FOR“AT ( 10041 ) 
FCRNAT (€ *G THF ARRAY NFSTAUK IN FROGRAP WRITES*, 
* OVEFFLCH* 
"EO ON THE FOLLOWING STATEMENT." 9 
FORMNAY «4 £5: 9 
FORMAT (€ *CSTATEMENT RUMBE® *, T6, * WAS 
KFFERENCEN BUT KOT D* 
*EFINEC. THE ORIGINAL VAIUE WAS LEFT.* ) 


END 


Se 


YOO 


aan 


aanaana 


NAF 2A NM AH 


Aanwrs 


~~ © 


SLEROUTIPE BF ECH (LCUT, Ly “IN, NNN, NE, ITY) 
BSE*XKS GUTFLT STRING "LCUTY FO” READABILITY. 


COHMON ELLA FCRAPS, TOOLLAF, TFFEKOP, INKUM (2, 
5h), TROATANT, 

IPFENG, TSAUM, ITYPCE, FT9GSGEO, KFC (107), KFOUT 29 
107), KSPUM 

(2, GOED, LCAEP (6%), LCRA'S, LFOUT (1090), LSTATE 
(Zu01), 

TWOEOAS, NAMe (49, NCSTAS, KEXT, NEOFnY, HE OUT, 
NKFO RM, NCLTS, 

NFUSH, NSALEC, MSTATN, NUMSFR (7), NU4IN, NUMK, 
NVAL UF, STFIRKE 

(2, 19?) 
LOMHMON SERTAS Ly ENDy Hy TolfNK, IFOF, INTEGER 
(19), IPUNCT 

(11), ICCUNT (2y 4&)y LUT, LUQUT, LUSTATE, ™MFOLT, 
MLUHERS, 

MNEOKM, KPRESTATE, NCAKT, AMA X, NUSHAX, PROGRAM (7), 
RETUFN, 

CTAR, X 
DIME RSTOR Leuy (ey 
TE (LCHAKS elFe LPOTRT) RETUTR 
IF CETV¥ oF he 46) GOTO 4 
NEN > 20 
IF (LSTATT CIFFINT 41) CEQ. JALANK eOFe LUUT(72) oFO5 
IZLANK) 

RETUEN 


FINS THE LaST BLANK FOR THE AREAK LOVATIIN, 
N = ISCAHR(TELAKK, 625 72, LOUT(1)) 
IF (N GE e 62 eANTe N oLFe 72) GO TO 2 
IF CITY oNEo 17) FETURN 


SFEAK A FOFFAT OR DATA STATEMENT ONLY AFTES A 


COMMA, 7, OF de 
N2 = ISCANR(TPUNTT (205 615 72y LOUT(1)) + 1 
Ni = ISCSNR(TPUNCI (1) 5 ELy 72y LIUTCL)) + 1 
NY = ISCANF(TFUNTT (C4), 61, 72y LOUT(1)) + 1 
N = MEXO(N4, N2y N4) 


IF CN oFQe 72) CO TA 6 


NAN = 7 
NN = 7 
IF (N otTe 62) CO TA 
NNN = 10 
NN = ifn 


75 


—_—— —_—-- -—— 


HO 3 fF Ny 72 
LOUT(T) TSLANK 
CONTINUE 


FOR FIRST CR SINGLE CAPL, IFOINT = 72 


IPOINT = N + IPOINT - 72 
RETURN 
IF (ITY oFQe 1€) RETURN 


HERE TO INSFPT AN ASTEFISK TNTN A FORMAT 
STATEMENT. 


eLTe 0) WF = WN 

TSCANE (TPUNCT (E05 NP, 71, LOUT (L)) 
ISCANF (CTPUNCT (44) NP, 71, LOUT(4)) 
5 

. KE) GO TO 5 

N44 

14 

ISCAND (Hy Ny 74y LOUTC4)) 

NS oO0%. NS ol. A) RETURN 

CUT (72) IFURCT (J) 

TPOINT IFCTNT = 4 

LSTATECIPCINT) = TRUNCT (J) 

JENINT TECINT = 7 

NNN if 

NN 4c 

RETURN 

rAIN 


(NH 2G” 


"un Hoe 


wow 


IO A 


4 AREA we 


Wee 


SUBPNUTING FIXFATA 


THIS SUPKOLTTNE ASSUSES THAT TRF HOLLERITH FIELCS 
IN DATA 
STATEMENTS ABE FROPESLY HANDLED, 


COrrOoM SPLLZ ICHAFS, ICALLAF, IFFFOR, INNUM (2, 
59), TEOINT, 

TPOG, ISNUMy ITYFF, TSCS9, KFORM (103), KFOUT (2, 
TUG), KSKYY 

(25 SPL» LEAP (60), LEFARS, LFOUT (1090), LSTATE 
C2G0) 

LWORES, NAME (6), NCAPUS, NEXT, NFCRMN, KNECLUT, 
RKFIOS My EGUES » 

PUSH s WENLULO, KSI BYR, NUMBER. £7eh5 NUMIN, NKUMKy 
BVALUS, STEING 

(25, LOC) 
CCHMMOW SEETAS Cy FN, Ky TELANK, IFOF, INTEGER 
(4%) 5 TRURET 

(£1), ICCUNT (2, &)y LUTB, LUNUT, LUSTATEs MFOLT, 
MECHA SES 

MINEO M, MNSTATE, NGARM, KMPX, MIMMAYX, FROGTAM (7), 
RETIPON, 

Sikes x 


SuUAN FOR TEE H WHICH “AY SF THE STAFT OF A 
HORLEY 27 A EVECB. 


INTEGER K 

Tt = 4 

IH TOP ths Diy -LCH4ARS, LSTA = Cie 
TF CTH eGEe LCREPS) RETUFR 

Tc TF 24 


PTL eChTRE WHET RE THE HFS SCKRECKHEDED SY #4 
INTERER 
PE CEST ETE CTS) cba Pt Mee Be 
9 I a 9 = Je DE 
DE eS Oe BGaae 3 
CONTINUES 
Fu Ge & 
" ae | 
1° = Too 4 
JF ELSTATE TIS) «EQs TPSLANK) GO TD & 
AD & | = iy ZL 
FE CUSTRIECIS) eFOe TYPTEGES Chi). 60 10. S 
CONTTANU! 
60 79 @ 


5 W = N+ 20) ot ve 9 . 
* oye Of 
EP GESTA TE CES) ekG. DSLARK) GO To) 4 
Hoe -6 Ff = 1,5 20 
LF CLSFATE CIS) wEN. LENT FCER(T)) GO TO 7 
6 CORTINUE 
GA Th 9 
Y N SY ie ig 8 Et (i Pe 1 
TS = 1S = ¥ 
TF CL STATE CIS) eNFe ISBLANK) GO TO S 
fn 
€ AFTESHINE TF THE INTEGERS TS FPREFECES SY & F, 
¢ t fFOMMA, CF *, 
€ 
& Ts = ]5 = 4 
FF CLSTATECTS) ce TOEUNCT(1)) GO TO 1 
EF CUSTATE CIS) «EO. TRUMNC™ Ce)) Ge FO 26 
EF CLSTATS CLS) ehGs. PRUNE T (5S) GO TO 1P 
q aia x = TH 4 2 
6u TO 1 
cf sis = Tr +} 
TH = TH #4 
vO Dt 4 = PH, £5 
ES PARVECL): = USTATE GR) 2 
p He COATINUE 
ipa | =) re oe os 
G0 TO 4 
FMD 


) 


DFE ANAND Oe 


ION Ae 


‘nN 


OLA! ant tye TRecACe 


THIS SUPRCUTINGE EROMPLFETES TRE SPACING WITHIN JF 
STATEREMS 

reeqn SALES ICHPFS, TOCLLAF, TEFROU, TAKUM (2, 
Saks IRCINT s 

TPF OG, TSwUM, FYYSF, Tagee, KFCFM (101), KFOUT (2, 
169), KSATIVM 

(2) WOLV, LOLS (el), LOKAES, LFCUT (1090), LSTATE 
CSTRA)Y, 

LWOFIIS, NAME (4), NCEFES, NEXT, MEGRMN, NZ OUT, 
NKFO OM, KRCUTS, 

NPUSH, NSNU*C, NSTATN, NUMOESF (7), NUAIN, NUMK, 
NVAG UF, “STRING 

(2, 190) 
CCKHOM SCRTAZ Cy END, Hy TIVANK, TFOF, TRT EGER 
(POV, TOURCT 

(11), ICOUNT (25 4), LUTK, CUOUT, LUSTATE, “FOLT, 
MLOHARS, 

MNFOPM, YNETATE, NCAR OD, AMAY, NIPMAX, PREOSEAM (7), 
RETUES, 

GTAP, xX 


FING THE FIFST ( C= TFURST (3) )0 


cr 
G 


inci 
LLOW 


cae CHECK 
ER ISCANL (TFUNCT C2) 5 11, LCHARS, LSTATE (1)) 
FIND ! 'G C=JFUNCT (4)). 
LUPPER MATCH(LLOWES, LOHAFS, LSTATE(1)) 
FINN FIFST « (= TFURPT (7)) 
FPFIRNST = ISCAM CIFUNCT (7), LLEOWER + 1y LOHARS, 
LSTATE(1)) 
TF CIPFIFST .CF. LUPPER) RETUFN 
FIND THF NEXT « 
IF NE XT ISCANL CTFUNCT (7), IFFIESY + 1, LCKARS, 
LSTATE(1)) 
JF CIPFIRST «CF. LUPPERY RETURN 
IF (TENEXT@IFFINST .GT. 4) GO 10 9 
EF CIPNERT © ACFIENT = SE Sy. ey 7 


TWO CHARACTETS. BARE THEY FO, Shy Giy LEy LT, NE, 
OF? 


(LSTATE CIPFIFST +1) 1HE) TO 
(LSTATE (CIFFIFST4#1)9 1HG) TO 
C(LSTATE CIPFIFST +1) LHL) 
(LSTATF CIPFIRST+1) 1HN) TO 
(LSTATE CIOFIFST +1) 1HO) TO 
To 9 


(LSTATE CIPFIFST#2) 1H) TO 
TO @ 


(LSTATS (JFFIFST +2) 1HT) TO 
(LSTATE CIFFIFST +2) 1HE) GU TO 
TT 9 


(LSTATFE CIOFIRST#2) FN. 1HKFI GO TO 
TU 9 


THREF CHARACTFEFS. APE THUY AND OF NOT? 
(CHECK (ZHANC 2, IP FIFST ig IPNFEXT yL STATE (1) »IP)) CO 


TO & 
IF ( eNO. CHECKISHNUT, %y TFFIRST +4, IENE XT gLSTATE (1), 


} FPP) GO TO 9 


YESe IJINSEFT SUFSOUKDINE SPACES, 


CALL INSEKT CIELANK, IF™EXT + 415) LOHARS, LSTATE (14), 
1) 

CALL INSERT (ISLANK, IPTFIRST, LCHARS, LSTATE (1)5 1) 
IFNE XT = If&KEXT + 2? 

IPFICST = TFNEXT 

GO FO i 

END 


— 
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SUBROUTINE OUTFRM 


THIS SUEFOLUTINE OUTFUTS THE FORMAT STATEMENTS IA 
THE OFCER 
THEY ATE USEF. 


CCKMON SELLS TCHAKS, TOOLLAR, IFRROR, INNUM (2, 
59), IFOINT, 

IPROAG, ISNUM, ITYPE, 19999, KFOP™ (191), KFOUT (2, 
190), KSKUM 

(25 GOCd, LEETD CBO, LCKFAPS, LFOUT (i090), LSTATE 
(2001), 

LWOENS, NANE (4) NCAP DS, NEXT, NFORMN, NFOUT, 
NKFORMy, NCLIS, 

NPUSH, NSNUMC,) NSTATNy NUMSEF (7), NUAIN, NUK, 
NVALUE, STFING 

(2, 190) 
COMMON S/TATAS Cy ENDy Hy TSEBNKy IF OF, INTEGER 
(19), TEUNCT 

(11%, ICOUNT (25 &) 5 LUINy LUOUT, LUSTATE, MFOLT, 
MLOHARS, 

HNFOT My, MASTATE,y MCAKT, NNAX, NUPMAX, PRUGRAN (7)y5 
FETURN, 


STBP, X 

COMMON /NHURFRT/S NOFT 

INT CGE hi, Cy FORMAT, H 

CATA Ai, FCRAAT ¢ 2HB1, GHFORMAT / 

IF (NFURMK el fe & eOFe TERFOR ©EQ. 999) METURN 
{CHARS = 4 

LSTATE(1) = 6 

C&LL PUNCHIT (0) 

JEP OP = acc 


KFOUT (1,55) TS THE CPIGTN*& FOFMAT STATEMENT 
LAFEL. 

KFOUT(2sJJ) TS THE FIFST WOFD THIS FORMAT 
OCCUPTES IN LFOIT, 

KFOUT (2,55) TS THE KUMBEP OF CHARACTERS IN THIS 
FORMAT, 


MATRA LONF 
ON 265 J = 1, NFORMN 
v0 1 JJ = 1s “FOU 
TF (KFCRE CU) eEVe KFOUT(1,4J)9 GO TO 2 
CONTI“UE 


WOT FEUNCe INSERT A OQLMMY FORMAT STATENENT. 


81 


aaan 


aan 


aan 


PRINT 4uly KFOFM (J) 

LOHAKS = JCHARS = f 

FALL INSERTS (CIF UNCTCG), Ly LOHATS, LSTATE (1), 1) 
FALL TASFERTS (AS, 1s LEHAPS, LSTATECT), 3) 

C4Lt& INSERTS (TRUNCT (3), 25 LOHAPSs LSTATS (1), 2) 
GO TO 7 


ROTRIEVE TRE FOSHAT STOTEMENT FrOM THF APF AY 
¢ KFOUT. 


2 IN = KFCUT(2, JJ) 
LSHALS = JGHAFS = KFOUT (3, JJ) 
NF OUT => NENUT = 4 
no 4&4 T = 41, ¢ 
TF (hFCUT «LT. JU) GO TC & 
OO 2 dss = JS, NEQUT 
KFOUT(T, JIS) = KFOUTCT, JSS + 1) 
3 CONTIKUF 
KFOUT(T, KFCUT + 1) = C 
4 SONTINUE 
IPVINT ss. 
00 5. TT = I", 16009, 18 
re = MING CIPOINY + OC, TCHPFS) 
IC Sle (ed = LEOUNT 


TP CXC ebEs 0). GO 30.6 

DECODE (Cy  1Hls FOUL CIL)) C(LSTATE (CT), 
$ IT=TPOTNT, T2) 

IPOINT = JFOIRT #+ 100 
5 CCNTINUF 


COMPLETE TKE FORMAT STATEMERT, 


6 CALL INSEFTS CIBLANK, ICFA®S + ty LCHAFS, 
@ USTATE (1), 1) 
CALL INSEFTS (ITUNCT (4), TCHAFS + 1y LCHARS, 
¢ LSTATE(A), 1) 
CALL THSEFTS (TEUNCTO7), 1y LOHARS, LSTATS (105 
7 CALL INSERTS (FORMAT, ty UCHAFSy LSTETE (41) 5 8) 
CALL IKMSERTS (ITBLANKy 1, LOHAPS, LSTATE (1) 5 2) 
CALL INSFRTN (J + NBFT, ty LOHBFS, LSTATE( 1), 4) 


ase 


TI = 18 


m 
~ 


SPACE OUT TRE RALANCE OF THE FOSMAT STATEMENT, 


) TF (II eGEe LCHARS) GO TC 25 
Is ©. Abe 


STARCH FOR THE FIRST SPFCTAL CHAPACTERS 


cae] 


£ 
C 
ec 
19 
Cc 
C 
c 
11 
te 
Cc 
Cc 
C 
C 
c 
c 
13 
14 
9 he 
16 
17 
C 
Cc 
C ¢ 
Cc 
18 


AO 40 TF = TSe ECHARS 
SLAESH 
IF (LSTAIE CTI) 
COAMA 
IF (LSTAFE (TI) EO. IFUNFT(2)) GO TO 23 
ASTEPTSK OF COURLE QHiATeE 
ng ° JJ = 5.415 € 
IF (LSTATECITI)D ete 
CANT INUF 
TF CLSTATE CIT) 
CONTINUE 
Ge TO 25 


eof£Qe TFUNET(1)) GOTO 214 


TOUNCT (JJ)? GI TO 13 


«£05. HY GO TO t4 


H DETECTEOe IS THIS A FOLLERITH FIELD? 


TPE =» Ti = 2 
A632 2 Sg 48 
IF CINTEGSR(T) oFOe LSTATE(TI-1)) Gu TO 12 


CANTINUF 
NOe FEFEAT THE SFARCH, 


BiB i Sir + of 
GO TO RF 
HOLLER ITH FIFLO. OF FFERBINE ITS LENGTH. 
» a a | 
n0 14 I = 5 20 
TF (CINTEGFR (ID e£EOe LSTAYTECTI-2)) GO TO 15 
CONTINUE 
GC TO iF 
N 


ip = 1fP = 4 

IF CINTFEGCE (2) eo Ge LSTATECIT = 3)) NEN + 190 
IF (N .GE. 190) TER = IFO = 1 

IF (LSTATECTEF) «FQ. TRLANK) CO TO 47 

GALL INSERTS (IBLANKy TPR, LCHSES, LSTATE(4)5 1) 


II = I] + i 
TLAST = JI +N 
IFIFST 2 y * 4 
GO TN 4a 


INSERT A BLANK BFFOFF AK * OF “y THEN SKTF TO THE 


NEXT -* CR Ms 


CALL IWNSFRTS (IBLANKy ITy LCHARS, LSTATE(1)y» 1) 
IFIRST = II + 2 
IL4ST = ISCANLCIFUNCTO JI, IFIPST, LCHARS, 


* LSTATE(1)) 
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aanaa 


aAaon 


Aa tr 


aan 


aaa 


19 


20 


23 


Tl = ILAST + 1 
ALTER HOLLERITH FLIELCS TO ASSUPF FROPER XUTFUT 
SPACING. 
99 20 I = IFIRST, ILAST 
LSTATE C(I) = LSTATECT) + 1 
CONTINUE 
IF (IL .GEe LCHAFS) GO TF 25 
IF {LSTATECTI) eFO. TFUACT(1)) GO TO 214 
IF (€LSTATECIY) sEQ. TRURCT (2)) Il = IT + 4 
GO TO 24 
INSERT & BLANK PEFORE THO FIFST AMC AFTER THE 
LAST /. 
CALL INCEFTS (TBLANK, II, LCHAFS, LSTATE(1), 1) 
TE ty TES 
TF (LSTATE(I) eNEe IFUNCT(1)9) GO TO 24 
Tl fe Oe el Ea 
GO TO 22 
INSERT A BLENK AFTER £ COMMA, 
Ii es Ti + ¢ 
INSERT b PLP NKe 
CALL INSERTS (ITRLANK, Illy LCHAFS, LSTATE(L), 1) 
Es STL oe of 
CO TO €& 
CALL PUNCHI? (417) 
FN METAR LOOP 
LUHARS a9 
USTATE €2).2°.6 
GALL FUNCHIT (0) 
RETURN 


ForvoT (¢ #0 SCULPT NOT FTAD FORWAT NUM3ER *, 15, * 
IN THE BPEL 

*Y KFAUT,. B FurMY FCFRAT STS TENHENT (AL) WAS 
TMNSEPTE M2: ) 
FORMAT ( 10984 ) 


ENP 


em 


mIaanaoa 


om 1 a 


5 


IA 
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SUPROUTING OUTSTP 


tHIS FOUTINE SETS UP THE FINAL TYFE ANDO DIMENSION 
STATFERERT 
RECORDS. 


CCMYMOGN JZALLZ TCHARS, TEOLLAR, IFFPOR, INNUM (2, 
5"), IENIAT, 

IPEAG, ISNUM, ITYOF, FYE9CG, KFORM (100), KFOUT (2, 
110), KSAIM 

(2, GOO, LCFFO (AT), LOKARS, LFOUT (1090), LSTATE 
CERT) 

LWORUS, MAMF (4), NCATCS, NEXT, BFCKMN, NECUT, 
NKFOOM, HCLIS, 

NPUSH, “NSNUPC, PSTATN, NUMSFR (7) 5 NUMIN, NUMK, 
RVALUE, STRING 

Cte EERO 
COM {AW SOATAS Cy ENDy Hy YSLANKy IF UF, INTEGER 
(19), TEURCT 

(11), ICCUNT (25 &), LUIN, LUOUT, LUSTATE, MFOLT, 
MECHESS, 

MYEAE MS, RNSTETEy NCARM, APA XY, NUMMAX, PROGFEAM (7), 


RETURN, 
eV, ar, x 
CIMENSTOP KTYFF (7) 
INTE GEP ETRTNG, TEST (C2) 
UAT * KTYFE / QHOIKPENSICK, PHEXTFP NAL, Z7HOOMPLEX, 


ARIVUBL Ey 
THINTEGES, 7HLOGITFL, GREE AL 7 
wo = of 
OY 3 J = 
SKTm THE TYFFE TF NONS GCCHF. 
IF (NUM OER (CS) CEN. 09 GO TO 3 


ryce my TRE TYFrF ORME. 


bh = BRUMEFE (CJ) 

LCHb-S = 7 

PRL INSERTS (KTYPR CO), Gy LOEHS PSs LSTATECS) 5 79) 
LU 4e<S = 1S 

TEeVTHT = ee 


INSE*? CNE van TASLe AT fF Tyee, 


ty ‘ 
re + 4 
NPERLE C2%, 100, STRIKG (1) NED TEST 


< 
™ 
"ot 
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ek oy 


ria 


————————— 
—T -- —_——— a a_i 5 


Poe 


NN = 

CALL TASEFFTS 
@ LSTATE (4), BN) 

TPOPK™ = 

TF (K eEGDe N 

CELE IRSEFTS 
¥ LSTATEC1), 2) 


NOM 2CTBLAKKy 
(STEING (Ly 


(CHASES + 1 
} GN To 2 
(TPUNC T (2), 


TFEOTK™ = LCHARS #4 1 


CONTI®UF 
CALL PURCHTT ( 
NUMBER (J) = C 
CONTINUE 

RETURN 


J + 6) 


FOFMAT (¢ 1C00f1) 


END 
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1y 2%, 


TEST(1)) 


NE)» TPOINT, LLANES, 


JE0INT, 


Le = Ta RS, 


ene 


AaANIANN 
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SUBROUTINE FURFHTT (ITY) 


THIS POUTINE WETTES THE ETOPGANTZED STATTNENTS ON 
THE CUVENT 

FILE TAPEG, THIS FILE TS FEAMY FCR COMFILATICK 
OF FURCKING. 


CChMAN SALES ICHARS, TOOLLAF, IFERGF, INAKUM (2, 
50), IPAINT, 

TPEEG, TSNUS, ITYTF, IS9S9S, KFrer (100), KFOUT (2, 
199), KSNUM 

(2, GMD, LEAKED CPO, LORATS, LECUT (1990), LSTATE 
(2909), 

LWOPMS, MAKE (6), NCAROS, MEXT, NFCRMA, NEQUT, 
NKFORMy KCUTS, 

NPUSH, KEMURC, NSETATH, RUMEFE (7), NUMIN, KUNK, 
NVALUP, STEING 

(2, 190) 
FOMMON sSCATLS fy ERD, by JTRLANK, TEOF, INTEGER 
(1°), TEUNCT 

(41), ICCUNT (2) Py LUIA,y LUCUT, LUSTATE, MFOLT, 


MLCHPOS, 
MNEQORM, MNSTETE, NCAR SD, NNAX, NIIMMAX, PROGRAM (7), 
FFETURNy 
STAP, X 
NIFENSTON LCUT C72) 
INTEGER Gy Hy STAR, X 
IF CITY oF Ge 16) CALL FIXCATA 
IFUINT = 72 
NNW = 7 
we = 1€ 
OO £ F = 1, 72 
LOUTUT) = LSTAT%c (TD 
CONTINUE 


ONE OF TRE FIRST CARC OLTOUT,. 


CALL ARFCK (LCUTy 725) NNy KNNy NA, ITY) 
WETT© CLUCLUT, 4299 Laut 
TF (LOHARS oL&. 72) GOTO 7 


MULTIFLE CAFC OUTPUT. 
INO! NT THE REYAINNEP, 
NN IS THE STAFTING LOCATTON FOP THE CONTINUATICK 


CAPCS. 
aU =i 
NN = 10 ¢ 2 * NEUSH 
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C FORMAT CP CATA STATEMENT. CANNOT EF TwDENTTO, 
c 
TF CITY eEQe FE eORe ITY cEQe 173 NK = NAN 
2 hey ay So dige Fe 
LOUT CTS = JFLAnv 
S CUNTINUE 
& IF (LSTATECIFCIATHLY oKE. TEL ARK) GO TN 5S 
TEOTNT = IFCINT + 4 
IF CEPOINT «GFE. LCHAFS) GO TO & 
GO TO 4 
5 nm 61 = hy 72 
TPOINT = TEOTAT « 1 | 
t(OuT(T) = LSTATE CIFOINT) 
€ COMTINUF 
TC = MIRM(TC # 4, 199 
t crt (6) = IRTEGFRLIC) 
NIE = - 4 
CALL BRETH (LCLT, 725 NN, KN, NE, TTY) 
WFITE (LUCUT, 460) LOT 
JE CIPOINT elite tOHBES) GO TO 2 
re 
7 ro 2 J = 4, LCHARS 
LSTATECT) = FRLAWK 
a CONTINUE 
LCOHAPS = 0 
RETUPN 
C 
4N0 FOR*AT (¢ 7644 ) 
€ 
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APPENDIX B 


Function and Subroutine Descriptions 


Only those routines which have been added or significantly modified 


are discussed here. See the original report for descriptions of the 


remainder. 


ROUTINE 


ALIGN 


BLANKS 


BRECH 


4 DOLLAR 


IDENT 


DESCRIPTION 


A subroutine to position the equals sign in replacement 
and DO statements. It calls INSERT and ISCANL. It is 
called from READS and WRITES. 


A subroutine to delete blanks from a statement. It 
also decides whether a dollar sign is a statement 
separator or a Hollerith character. Hollerith strings 
are detected and modified to preserve any blanks in 
them. It is called from READS and calls DOLLAR, ISCANL, 
NONR, QDIGIT, and SPRESS. 


A subroutine called from WRITES to break a statement 
into one-line increments. The logic in BRECH was 


originally in two places in WRITES. BRECH calls ISCANR. 


A logical function called from BLANKS to determine 
whether a dollar sign is a statement separator or a 
character. If the $ is a separator, DOLLAR returns the 
value .TRUE. It calls IDENT, ISCANL, MATCH, NONL, and 
NONR. 


An integer function called from READS and DOLLAR to 


determine the type of statement being processed. In 


returns an integer code identifying the statement type. 
Data has been added to identify OVERLAY (IDENT = 14) and 
IMPLICIT (IDENT = 46) statements. IDENT calls SHIFTL. 


Oe ee ee ee 


A subroutine called by READS to compile a list of 


referenced statement labels. The list is stored as a 
binary tree in array REF, with the count in NS. Entry 
KSET sets REF and NS to 0. KU calls SCANREF. 


QDIGIT A subroutine called by BLANKS to evaluate the character 
count in front of a Hollerith string, e.g., 6HSTRING. 
If the character before the H is not a digit, QDIGIT 
returns -l. QDIGIT calls NONR. 


SCANREF A subroutine called by KU and WRITES to see whether the 
statement label N has been stored in the binary tree 
REF. If N is in REF, its subscript is returned in NQ. 
Else, the next left pointer is returned in NL or the 
next right pointer is returned in NR, depending on 


where N fits in the tree. 


WRITES The main program in the output overlay. It writes the 
reorganized routine to TAPE 4, which is equated to TFILE 
in the main program, CLEAN. WRITES deletes unreferenced 
statement labels from each routine as follows: READS 
stores each defined statement label in the array KSNUM 

and each referenced label in the array REF. The 
variable NSTATN counts the entries in KSNUM. READS 

{ writes a complete statement including its original label 
to TAPE 3. WRITES compares the list of defined labels 
to the list of referenced labels and deletes any which 


are not in both lists. The logic looks like this: 


I=1 
WHILE (I .LE. NSTATN) 
c NSTATN IS THE LENGTH OF KSNUM 


CALL SCANREF (KSNUM(I), NQ, NL, NR) 
IF (NQ .LE. 0) 
C I.E. KSNUM(1) NOT IN REF 
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DO (J = 1, NSTATN) 

KSNUM(J) = KSNUM(J + 1) 
END DO 
Ena = 3 

LOCATION I HAS A NEW VALUE, MUST BE CHECKED 
! c AGAIN 
i END IF 

Ie1r+1 

END WHILE 


| NSTATN = NSTATN - 1 
! 
| 


Then, as each statement is read from TAPE 3, its label, 
if any, is checked against KSNUM. If a match is found, 
a the subscript from KSNUM is used as the new label, since 
the entries in KSNUM are stored in the order encountered. 


If no match is found, the label is redundant and no label 
F is output. 


a 
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